CURSO PRATICO tzl DE PR0GRAMA(;A0 DE COMPUTADORES 



PROGRAAAAgAO BASIC - PROGRAAAAgAO DE JOGOS - CODIGODE MAQUINA 



Vol.3 



N." 42 



NESTE NUMERO 

PR06IIAMACA0DEJ0G0$ 

M6DUL0 LUNAR: COMANDE O POUSO 

Gr^ficos de alta resolucao. Paisagem lunar. Mar- 
cador de combustivel. Velocimetro. Controles de 
pouso. Personalizapao do programa. Efeitos sono- 
ros. Colisoes. m6duto 821 



AVALANCHE: MONTE O CENARIO 
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30 PROGRAMACAODIJOGOS 30 



MODULO LUNAR: 
COMANDE O POUSO 



PAiSAGEM LUN AR 
MARCADOR 



DE COWBUSTIVEL 
VELOCiMETRO 



CONTROLES DE POUSO 



Voce vai precisar de muita Kabilidade 
e sangue-frio para fazer uma nave 
pousar na syperficie lunar em 
seguranca. jogo e envolvente 
e facnimo de programar. Confira! 



Programai;ao de jogos nem sempre e 
sinonimo de longas e complicadaJi tista- 
gens. Comu voce vera neste artigo, po- 
demos criar jogcw muito intere?>santes 
com progranias relaiivamenie simples e 
curtos. 

Nosso jogo. Modulo Lunar, est a 
compteio. Eie oferece ao jogador grafi- 
cos de alta resolui^ao e controls total stv 
brc o modulo. Se voce quiser, 
acrescente-ihe sons, novas mensagens — 
como "Quer jogar novamente?" — ou 
modifique a paisagem lunar. Tudo de- 
pende de sua preferencia. 



CONTROLES 



Voce pode conlrolar a nave alternan- 
do o sentido (esquerda direiia) de sea 
movimenio e usando o.s foguetes para 
diminuir a veiocidade dc impacto com 
a plaiafornia lunar. 

Oscoiuroies sao. respeciivamente; A. 
S e F para o .^pple, o TK-2tX)0 e o MS\; 
5. 7 e 8 para o Spectrum c as seias para 
o TRS-Color. 



10 COLOR 15,i,l:SCHEEN2 
ZO F0HN=1 TO 50:P3ET(RND(l)*255 
,RND{1)*140) ,15;HEXTN 
30 DEAtf'CSBMO , laSM+ie , - 30M+-18 ,+ 
15H+le,+eM+18,-aM+]6,-20M+la.-5 
M+13. + 20M+l4.+8M-t-18,+4M+10,0M+l 
O.-10H+20,-25M+l(}.+2OM+10,+10M+ 
20.+5K+18,-20M2!>5,iqi" 
40 PAINTC10,191) .6 
50 DHAW-ClBM145,ieeM+2.-4M+14,0 
M+2,+4" 

80 DRAWBM93, 157C1D31B1U31' 
90 S--TIME:LX=INT(RNDtS}*240}+l 
0:LY=INT{BND(S) "lO) +15 : XV=INT (B 
ND(S)*10) :YV-Q:F-256 
100 AX-LX:AY=LY 
110 GOSUB 400 
120 GOSUB 1000: GOSUB 2000rGOSUB 

30(J0 
130 IF L¥<173 THEN 120 



140 FOR TT=0 TO 200: NEXT 

150 CLS;SCREEN0: COLOR 1,15,15 

160 IF LX<147 OR LX>161 THEN 19 



170 IF ABS(Vy)>4 THEN 200 

160 LOCATES, lO:PRINT*parab*nH, 

pouso beiB aucedido' :GOTO 210 

\<iO LOCATE/, J 0:PHINT"! ! fora da 

plataforna M-:GOTO 210 
200 LOCATED, 10: PRINT-nave danlE 
icada, velocidade inddeguada" 
210 END 

1000 IF LV>1 THEN COSUB 4000 
1010 t,X-LX+XV:LY-LY+Yy 
1020 IF LX<5 THEN t X-LX+245 
1030 IF LX>250 THEN LX-LX-242 
1040 IF LY<1 THEN BETUHN 
1050 IF LY>150 THEN HETUBN 
1060 GOSUB 4000 
1070 RETURN 

2000 YV-YV+.5:IF F<1 THEN BETUH 
N 
2010 IS-=INKEY3:IFIS-*"THEN2010 




#••- 
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20Z0 IFI9--F- AND r>3 TH£W YV-y 

V-1 :F-r-3»ETURM 

2030 JFI9-**' THEW XV-XV- 5F-F 

-I : RETURN 

2040 IFIS-'S* THEN XV-XV+ . 5; f-F 

-1 fETUP^ 

20 SO F'ETtJf.M 

3000 C9-STB$(IWT((256-F)/e;) 

3010 0RAW-C6B«93.J57D-*G3*"R1U" 

5020 £>fiAy*C68M105,lS5D35- 

3030 MlAtf*C15ll«10S,i;3«40,'*3TR 

S(nrr(yvn 

3040 BET'JSjN 

4000 PfeAH*C16«-+STa$(W{J*-,"+3T 

BS(Ayj*-H'5,*10ll*S,-2«*S.42M 4, 

-JO* 

40JO D«Atf-C15BM-*8TP5(IKT(LXJM 

- . •♦STfi$ ( IHTiLti )♦■«•> , +iOM*& . - 

2M*^,+2W-4.-10' 

4020 AX-I«T(LX) 'AK-lNKLyj BETtJ 



to HOH£ • HdH : KCOLOB* 3 
20 rO» N - 1 TO SOr HPLOT PWD 
<1) • 280. flND (U » 120: NEXT 

?0 HPLOT 0.160 FOB If - 1 TO J 
■ READ CX.O*: WfLOT TO GX,dY: 



NEXT N 
rv HRLOT 152.160 TO 152,155; H 
PLOT TO JW.155: HPLOT TO 166 
,160 

80 DATA 18.130. 36, J 45. S4. 15 
3, ?2. 145. 88. 125. 104, 120. 11 7, 140 
.133. 148. J 51. 152, 166. 152. 176. 14 
2.196,1J7.?0«.U7,7J6.M7.?V>,! 
52,254.132.2^9.159 
90 LX - IHT < HND (1> • 240, * 
lOLY - INT ( BMD (1) • lOj + 
15- XV - INT ! PHD ')( •• )»; V 



V - 0-F - 24'^ 

100 AX • LX Ay - L/ 

US fJOSUB 400f> 

1 20 G03U8 1 aOO : COSUB 2000 GC 

3'JB 3000 

130 IF LY ' 140 THEH GOTO >20 

135 FOP TT ' TO 100; MEXT 
140 HOME IF LX '' 152 OR I.X > 
166 OB ABS (YV; / 4 THEN GOT 
160 

150 VTAB (24) J^PINT "RABABEWK 
. VOIISO BEM StJCEDIDO"' CJOTO 170 

J60 'JTAB (24J ■ fKIHT tAB( 10/ 

;*l ' f VOCE COLIDHJ ! ! !• 

170 FOB TT - TO 2500: NEXT 

180 STOP 

1000 IF ty > J ?KKN r.fiSUB 4 00 



1010 LX - LX ♦ XV L/ - LT ♦ /V 

10 JO IF LX < •/ THEN LX - LX + 

245 

J0i5 ir L/. y ?50 THEM LX ■= I./ 

242 
101ft IF LY ' 1 THEW RETURN 
10 37 If LY y J50 THEW RETURN 

104 G0SU8 4000 
1050 RETURN 

2000 yv - yv ♦ 5 if F < i the 

N RETURN 

2010 GET IS: IF 13 - "F* AND F 
> 3 THEN yy - yy - 1:F - F - 3 

: RETURN 

2020 IF IS - 'A* THEN XV - X7 

- .5;F • F - 1- RETURN 

2030 IF 15 • *S" THEN XV - X7 

♦ 5 F - F - 1 : RETURN 

■^'I'i'j RETURN 

iOOf/ HOWE : VTAB (23): RRIWT ' 

COMBUST I VEL: "iF 

3010 PRINT : RRIHT "VELOCIDAJJE 
"; IHT (yVj 

iO20 VTAB (l> : RETURN 

4000 HCOLOB- 

4010 HPLOT AX.AY: HRL'jT TO AX 
- 5. AY + 10- HPLOT TO AX.AY + 
8: HPLOT TO AX ♦ 5, AY ♦ 10; K 



PLOT TO AX 4 LAY 

4015 HCOLOB- 3 

4020 HPLOT LX.LY: HPLOT TO LX 
- 5,t.« + 10: BPLOT TO LX.LY + 
8: HPLOT TO LX ♦ 5.Ly + 10: H 

PLOT TO LX * i,LY 

4025 AX - LXrAY - LY : RETURN 



10 RHODE 4.1 

20 S3-PEEK(186)»256rDIHL{l) .Bd 

i 

30 FOR K-Q TO 7 • BEAD A: POKE K' i 

2+33,* NEXT 

40 GET(0,&> - (7,7) ,L,G 

60 DATA 24. 60. 90. 126.126.90. 129 

.129 

60 PCLB SCREEN 1.1 

70 DRAW" HMO, 191" : FOR X-0 TO 2i6 

STEP Ifc READ AiLlNE- (X.AJ ,PS£T 

NEXT:PAXNT(127, 1911 
8<J DATA 151.173.177.165.146,120 
,167, 174. 17 7, 181, 181. 170. 140, 12 
2. 158,170, 161 

90 ORAW"B«l. ISBNBDNRDBDNBDRDL- 
lOXi LINEie.D- (254. 5 J .P3ET.BFL 
2NE'n2.;/-(132.121 .PEET 
IIQ LX-RNDf24e»-l -. LY-15+ftND 1 10 J 

Xy-RND(15j -e-yV-OF-246 
120 GOSUB 10a0:GO3UB 2000:G03UB 

3000 
130 ir LY<174 THEN 120 
140 CLS:IF T.X''i44 OB LX>153 OR 
YV>4 THEN 100 

150 PLAy*TiQ04AGFEGFE- PRINT €2 
25, 'PAt<ABEN3. P0U3O BEH SUCEDIO 
0!":G!JTO 170 

160 PLAY'TlOOOiADEFGBCDEFA'rPUT 
(LX.LYl-(LX+6,Ly*7j ,L,P3ET 
170 FOR G-I TO 4000:NEXT 
180 END 

iOOO IF Ly>12 THEN PUTfLX.LYj' 
LX+7,Ly+7) ,B,P3ET 
IDiQ LX-LX*XU-LY-Ly+yVS-25S-(2 
55 AND LY) : SOUNDS- (S-OJ .1 
1020 IF LY'U THEN RETURN 
1030 IF LX<0 OB LX^247 THEN LX- 



^^^-~k:^' 





-247«(LX>0) 

1040 aET(LX,Ly)-(LX+7,Ly+7) .B,C 

1050 PUT{LX,LY>-CLX+7,LY+7) .L.P 

SET : RETURN 

2000 YV-YV+.5:ir r<l THEN RETUR 

n 

2010 IF PEEK(34i)-247 AND r>3 T 

HEN IV-TfV-l:F-F-3: RETURN 

2020 IF PEEK (343) -247 THEN XV-X 

V-.S:r-F-l: RETURN 

2030 IF PEEK (344) -247 THEN XV-X 

V+.5:F-F-l 

2040 RETURN 

3000 LINE {9+F,l)-<12+F,5) ,PRES 

ET BF 

3010 V-2"yV:lF ABS(V)>122 TIIH 

V-122«aONtV) 

3020 LINE{S,8)-C255,11) .PRESET. 

BF:LINE(132.e)-{132+V.ll) .P8ET, 

BF 

3030 RETURN 



10 BORDER 1: INK 7: PAPER 0: 
CL9 : BRIGHT 1 
20 FOB N-1 TO 50: PLOT BNO" 
255. (RND«135)+40: NEXT N 
70 PLOT 0,0: FOR N-1 TO 16: 



READ aX.OY: DRAV GX.OY: NEXT 
N 

80 DATA 16,30,18,-15,18,-8,19 
,8,16,20.16,5.13.-20,16,-8.18 
,-4.15,0.10.10,20.25,10,-20. 
10,-10,20,-5,19.20 
90 PRINT AT 0,4! INK 6j PAPER 
2f''C0MB; "iAT 0,18j'UELOCID :" 
110 LET UX»RND*240+10: LET LY- 
160-C15+(RND*10)] : LET XV-END* 
15 r LET YV-Ol LET F-246 
115 OOSUB 4000 
120 GOSUB 1000: OOSUB 2000: 
G03UB 3000 

130 IF LY>20 THEN GOTO 120 
135 PAUSE 50 

140 CLB r IF LX<154 OR LX>164 
OB AB3 YV>4 THEN GOTO 160 
150 PRINT * PAFABENS , P0U30 B 
EM gUCEDIDOl": RESTORE 5000: 
FOR N-1 TO 14: READ A.B: 90UND 

A,B: NEXT N: GOTO 170 
160 PRINT AT 10, 7 1 FLASH 1; 
INK 2! PAPER 7i-!M ! iCRABH! ! !! 
[■; FOR T-1 TO 50: BORDER RND* 
7: SOUND .01.RND*5t NEXT T 
170 PAUSE 400 
180 STOP 
1000 IF LY<160 THEN OOSUB 4000 
1010 LET LX-LX+XV; LET LY-LY+YV 



; IF 

5 

1030 

5 

1035 

242 

1036 

1037 



LY<300 THEN SOUND .02.LY/ 
IF LX<5 THEN LET LX-LX+24 



IF LX>250 THEN LET LX-LX- 



IF 
IF 



LY>160 THEN 
LY<10 THEN 
1040 GOSUB 4000 
lOSO RETURN 
2000 LET YW-YV-. 5: 

RETURN 
2010 IF INKEY5-"7" 
LET YV-YV+1: LET 
N 

INKEyS-"S" 
LET F-F-1: 
TNKEY3-"8" 
LET F-F-1: 
RETURN 
PRINT AT 0,10 



RETURN 

RETURN 



IP F<1 THEN 



AND 
F-F- 



F>3 THEN 
3: RETUR 



2020 

-XV- . 

2030 

-XV-t-. 

2040 

3000 



IF 

5: 
IF 
5: 



THEN LET 
RETURN 
THEN LET 

RETURN 



XV 



XV 



•43THS f*' 



■+STa» INT YV+- 



: PLOT LX,Ly; 
5,2: DRAW 5, 



DRAW - 
2: DRA 



-iAT 0,281 
3010 RETURN 
4000 OVER 1 
5,-10: DRAW 
W -4,X0 

4010 OVER 0: RETURN 
5000 DATA .2.4, .2,7. .2,5, .2,12, 
.2,0,. 2. 4,. 2. 4.. 2,5.. 6, 7,. 2, 12, 
.2,0, .2,4, .2.2. .6,0 



I 
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ODIGODB 





MANCIHl 
T 







Nao hd avalanche sem montanha. Chegou 
a hora de colocar em cena a encosta 
que Willie ird escalar. Precisaremos 
tamb^m colorir a superficie e completar 
a tela com um belo c^u azul. 



O iftulo e OS creditos foram exibidos. 
O jogador ja leu as instrugoes e ouviu 
a execugao do tema de abertura. Che- 
gou a hora de abrir as cortinas — ou, 
no case de A vatanche, a hora de dese- 
nhar o cenario. No Spectrum, esie se 
movimenta da esquerda para a direita, 
enquanto a tela de instrufoes e arrasia- 
da em sentido oposto — ou seja, realiza- 
se um SCROLL horizontal. No MSX e 
no TRS-Color, a tela de instrupoes esta 
no modo texto. Por isso, enquanto o ce- 
nario e colocado na tela grdfica, a pagi- 
na de instru?6es vai se apagando, 
cedendo-lhe lugar. O deslocamento do 
cenario para o video se da da mesma 
maneira. 

O processo de montagem do cenario 
e bem simples. Um programa BASIC 
cria uma tabela com o contorno da 
montanha (para o TRS-Color isso fol 
dado no artigo anterior). A partir do 
conteudo da tabela, a rotina em codigo 
desenha o perfil da encosta. O ecu e a 
terra podem ser coloridos por meio de 
bloc OS graficos, colocadosacima e abai- 
xo do perfil da encosta. A medida que 
cenirio e transferido para a tela, va- 
mos retirando a pagina de instru(;oes. 



A rotina Assembly listada abaixo e 
rcsponsavel pela criagao e pelo 
SCROLL horizontal do cenario. 



%U 



10 


REH 


org 58303 


20 


REM 


iBi Id a. 16 


30 


REH 


Id (57328). a 


40 


REM 


Id ix. 58034 


50 


REM 


Id b.3Z 


60 


REM 


Rpi push be 


70 


REM 


cal 1 act 


80 


REM 


Id a,0 


90 


REM 


Id (57329) ,a 


100 


REM 


Id a, (lx*0) 


110 


REM 


dec i^ 


120 


REM 


cp 33 


130 


REM 


jr nE.lv 


HO 


REM 


dec b 


150 


REM 


Id a, {57.12B) 


160 


REM 


dec a 


170 


REM 


Id (57328) ,a 


leo 


BEM 


Id a.l 


190 


REM 


Id (57329), a 


200 


BEM 


Iv Id a, (5732B) 


2t0 


REM 


Id b,a 



220 
?30 
240 
250 
260 
2 71) 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 

4 20 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

5 30 
540 
550 
560 
570 
5B0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 



BEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
BEM 
REM 
REM 
REM 
REM 
REM 
BEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REH 
REM 
REN 
REM 
REM 
REH 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
BEM 
REM 
REM 
REM 
REM 
REM 
REM 
HEM 
BEM 
REM 
REM 



Id hi, 31 
Id a, 45 
call Ig 
W be, 57264 

a. (57329) 

1 

nz , np 

be, 57272 

Id a, 44 
print 
(57328) 



Id 

cp 

jr 

Id 

np 

call 

Id a 



Id b,a 

Id a, 23 

sub t> 

Id b,a 

Id a. 32 

Id de,32 

add hl,de 

call Ig 

pop be 

djnz mpl 

Id hi, 49 

Id b,12 

Id a, 41 

Id ix. 57973 

call Be 

Id hi, 113 

Id b,7 

call me 

call elb 

ret 

Hcl Id hi, 16384 

Id b,216 

Ipi Id C..11 

Ipj inc hi 

Id a, (hi) 

dec hi 

ld(hU ,a 

inc hi 

d«c c 

jr nz.lpj 

inc hi 

djnz ipi 

ret 

iq push be 

Id be, 15616 

call print 

Id de,32 

add hi ,de 

pop be 

djnz Ig 

ret 

«lb ret 

org 5S146 

■e * 

org 58217 

print * 

Esie programa BASIC coloca na me- 
mdria do microcomputador a tabela cu- 
jo conteudo e rcsponsavel pela defini- 
(;ao do perfil da encosta. 




Illlllll 



II j; CODiaODCMAQUlNA ^| 



COMO USAR UMA TABELA 



PARA DEFINIR 



CONTQRNQ DA MONTANHA 



DESLOCAMENTO 



DO CENARIO 



Q USQ DOS BLOCOS GRAFICOS 

COMO CQLORIR 

OS ESPA COS 

REDEFINIC AO 

DE CARACTERES 




A. .^T.^y^ y 



5 CLEAR 57000 
10 FOR n-57973 TO 58034 
20 READ a: POKE n,a: PRINT n; 
■ " iCHBS a 
30 NEXT n 

40 DATA 93.67,79,82.69.45,46. 
48,48,48.48,76,73,86,69.83,45 
,53,71,65,77,69,32,79,86,69, 
82,32,33.33,33,35,35,33,35,35 
,35,33,35.35,33,35,33.35,35, 
35.35,33.35,33,35.36.35,35,33 
.35.35,33.35,35,35.54 

Como de costumcj o programa usa 
um iaijo FOR... NEXT para colocar da- 
dos na memoria. O enderefo inicial da 
tabela criada esta na linha 10. A linha 
5 protege o topo da memdria para que 
OS dados das outras labelas nao sejam 
apagados. Na linha DATA os valores 
33 correspondera a por<;6es inclinadas 
do perfil da encosta, e os niimeros 35, 
a porcoes planas. Os demais valores sio 
cddigos das letras utiiizadas para escre- 
ver score e o niimero de vidas que res- 
tarn a Willie. 



A MONTA^EM DO CErtfARIO 



Ap6s a defini<;ao do endereijo ini- 
cial, temos duas instrugoes cuja fun?ao 
e colocar no endereco 57328 o valor 16. 
Esse numero corresponde a coordena- 
da Y do extremo superior direito do ho- 
ri7.onte. A posi^ao 57328 sera usada pa- 
ra armazenar numeros, como se fosse 
uma variavel, 

Em seguida, a instru^ao Id ix, 58034 
coloca no par IX o ultimo byte da tabe- 
la que define o perfil da encosta. Esse 
byte define o declive do extreme supe* 
rior direito da montanha. 

O registro B serd usado como conta- 
dor do numero de colunas ja desenha- 
das. Por isso, a instrucao Id b,32 colo- 
ca nele o valor 32, correspondente ao 
numero de colunas da tela. A proxima 
linha guarda esse valor na pilha. 

Em seguida, a sub-rotina scl e cha- 
mada. Ela se encarregada translagao do 
conteudo da tela uma coluna para a es- 
querda — ou seja, realiza um SCROLL 
horizontal, 

Uma segunda positao da memdria, 
com enderego 57329, sera usada como 
indicador. Ela informari k rotina se o 
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nivel da encosta estd diminuindo ou per- 
manece piano naquela coluna. Se o byte 
for 0, a encosta d plana; se for 1, o ni- 
vei estd diminuindo. As instru^fies das 
linhas 80 e 90 coiocam no enderefo o va- 
lor iniciat 0. 

A instrugSiO Id B,(ix + 0) coloca no 
acumuiador o ultimo byte da tabela de 
contorno. Tcmos que usar o " + 0" nes- 
sa instrufao porque o endere^amemo in- 
direto com o registro IX deve ser inde- 
xado, NSo existe uma instru^So Id B,(ix). 
A instru^io dec ix subtrai uma unidade 
do conteudo de IX, para que ele aponte 
para o pr6ximo vator da tabela, Obser- 
ve que csta ser^ lida *'de tr^s para a 
frente". 

A instrugao cp 33 tern a fun?io de 
comparar o conteudo do acumuiador 
com 33, valor indicative de que o nfvel 
da encosta esti diminuindo. Se o acu- 
muiador n§o contim esse valor — ou se- 
ja, se a momanha i plana no local em 
questio — , a instrupio Jr liz.lv salta em 
diregHo ao rbtulo Iv. 

Se conteudo do acumuiador for 33, 
a instru^So Jr nz,lv 6 ignorada, pois o 
indicador de zeros foi ativadu por cp 33. 
O contador B e a coordenada Y do per- 
fil (armazcnada em 57328) sio diminuf- 
dos em uma unidade. O indicador arma- 
zenado no endere?o 57329 passa a valer 
I. Todo esse processo 6 executado pe- 
las linhas 140 a 190. 

A instru^So dec b diminui o valor de 
B. As akeragSes do conteudo dos ende- 
re?os 57328 e 57329 sSo feitas com au- 
xilio do acumuiador, jd que nao existe 
uma instru^to que, diretamente, dimi- 
nua valor de um byte da memdria ou 
transfira um valor para determinado en- 
derefo. N3.0 h^ insiru?6es do tipo dec 
57328 ou Id (57329),!. 

Quer a encosta da montanha apresen- 
te inctina^So, quer continue plana, o 
prograqia coniinua na rotina Iv. 



A ROTINA Iv 



A linha 200 e a linha 210 coiocam o 
valor da coordenada Y no registro B. Is- 
so e feito com o auxClio do acumuiador, 
}i que o registro B nto recebe o valor 
de um byte da mem6ria via cnderega- 
mento indireto, N3o hi uma instru^ao 
Id b.(57328>. 

A instrufpao Id hl,31 coloca em HL a 
posi?^© da mem6ria de vfdeo que cor- 
responde ao canto superior direito da te- 
la. Id a,45 coloca no acumuiador o va- 
lor 45, que, quando transferido para a 
tabela de atributos, resultarci num carac- 
tcre desenhado em ciano sobre fundo 
ciano. A rotina Ig i chamada a seguir. 
25 Ela desenha uma coluna de blocos a par- 



tir da posj^So determinada por HL. A 
cor dos blocos i definida por A, enquan- 
to o tamanho da coluna i estabelccido 
por B, 

Quando o processador retorna da 
sub-rotina, a instru?ao Id be, 57264 co- 
loca em EC o endere^o inicial do padrio 
do bloco usado para descnhar por?5es 
planas da encosta. O indicador guarda- 
do no endere^o 57329 6 colocado no 
acumuiador e comparado ao niimero 1 . 

Se o valor do indicador for diferente 
de I — ou seja, se a montanha for pla- 
na neste local — , a instrugao jr ni.mp 
faz com que o processador salte em di- 
rc?ao ao rdtulo mp. Se o valor do indi- 
cador for 1, o nivel da encosta deve 
diminuir. A instrugSo Id bc,(57329) mo- 
difica conteudo de BC, de modo que 
esse par de rcgistros passe a center o en- 
derefo inicial do padrSo do bloco usa- 
do para desenhar por9des inclinadas da 
montanha. Os padr6es dos blocos das 
poroses planas e inclinadas da monta- 
nha sSo obtidos na tabela de padrSes 
criada pelo programa listado no ultimo 
artigo. 

Quer a montanha seja plana ou in- 
clinada neste ponto do desenho, o pro- 
grama prossegue na rotina mp, 



A ROTINA mp 



Para desenhar os blocos que definem 
perfil da encosta da montanha, deter- 
minando o limite cntre o ceu e a terra, 
computador precisa de duas cores. As- 
Sim, a instruijao ld,a,44 atribui aos ca- 
racteres a cor verde. A cor do fundo per- 
manece ciano. Em seguida, a sub-rotina 
print, listada no primeiro artigo da s^- 
tie Avalanche, e chamada para desenhar 
o bloco. 

As instrugges contidas nas linhas 320 
e 330 coiocam o valor da coordenada Y 
do perfil da encosta em B, com o auxJ- 
lio do acumuiador. Subtraindo esse va- 
Jor de 23. obt^m-se o numero de blocos 
que devem ser desenhados abaixo do ho- 
rizonte. O numero 23, correspondence 
ks linhas da tela do Spectrum, foi colo- 
cado em A para permitir a subtrac^o 
realizada pe!o comando sub b. Esse co- 
mando deixa o resultado da subtra^So 
no registro A, A instru^ao Id b,a i utili- 
zada para trazer o resultado da subtra- 
cao de volta para B — a rotina Ig exige 
que o numero de blocos a serem dese- 
nhados esteja em B. Note que todas as 
24 linhas da tela do Spectrum sSo em- 
pregadas, incluindo as duas inferiores, 
normalmente reservadas para edigSo de 
linhas em BASIC 

A instrucio Id a, 32 coloca em A o 
cddigo de atributo correspondente a ca- 



ractere de cor verde sobre fundo igual- 
mente verde. Em segutda, o niimero 32 
i colocado em DE e somado ao endere- 
(0 de impresslo na tela, que est^ em 
HL. Esse par de registros passa, entao, 
a apontar para a prdxima posi^pSo na 
vertical. A rotina Ig 6 chamada a seguir 
para imprimir os blocos verdes abaixo 
do horizonie. 

A instru9ao pop be recupera da pi- 
Iha o contador de colunas. A instru^So 
djni diminui seu valor em uma unida- 
de, relornando ao inicio do programa 
para imprimir uma nova coluna, en- 
quanio o contador nSo for zero. 



PLACAR 



Precisamos reservar uma por?3o da 
tela para imprimir o score e o numero 
de vidas que restam a Willie. Assim, na 
linha 430, 49 i colocado em HL, deter- 
minando a posi?ao de impressSo do pla- 
car. O numero de caracteres impresses 
i colocado em B. A instru^io Id a.41 co- 
loca em A c6digo de atributo corres- 
pondente a caractere azul sobre fundo 
ciano. 

Depois, a instrucSo Id ix,57973 colo- 
ca em IX o enderefo do byte que seri 
utilizado para armazenar o total de pon- 
tes obtidos pelo jogador. A rotina me, 
criada no primeiro artigo desta sirie, 6, 
entao, chamada. Ela traduz e score sob 
a forma de ccidigos ASCII, e o imprime 
na tela. 

A instruclo seguinte chama a sub- 
rotina elb, que cuida dos niveis de difi- 
culdade de joge, acresccntando os bu- 
racos e as cobras ao ccnirio. Essa roti- 
na ainda n3o foi publicada e, como vo- 
eg pode observar, seu rbtulo correspon- 
de a um simples ret, no final da lista- 
gem. Por enquanto, o processador re- 
ternar^ imediatamente da retina, sem 
nada executar. No memento apropria- 
do, o comando ret seri apagado peia 
verdadeira rotina elb. 

Ao retornar da sub-rotina elb, o pro- 
cessador encontra uma nova instrufio 
ret, que provoca um retorno ae interprc- 
tador BASIC, Quando e videogame es- 
tiver cempleto, a rotina de cria^ae do 
cenirio tera terminado e o processador 
retornari k rotina principal (responsi- 
vel pelo controle do jogo), que chama- 
Ti as sub-rotinas seguintes. 



SCROLL HORIZONTAL 



O rotulo scl marca e inicio da rotina 
que executa um deslocamento horizon- 
tal do conteudo da tela para a dircita. 
Esse processo — chamado gcralmentc 



de SCROLL horizontal — permite que 
desenhemos o cenario, a partir da extre- 
midade esquerda do video, enquanto a 
paginade instrugoes vai sendo retirada 
da tela. 

A irstru^ao Id hi, 16384 coloca o en- 
dereco iniciat da memoria de video em 
HL, A instrugao seguinte coloca em B 
o niimero de linhas da memdria de vi- 
deo e da tabela de atributos. O niimero 
de colunas por linha e colocado em C 
pela instrui;ao Id c,31. 

O apontador HL aumenta, entao, em 
uma unidade, fazendo com que a instru- 
flo Id a, (hi) coloque no acumutador o 
conteiido da segunda posi^ao da tela. 
Em seguida, o conteudo do par de re- 
gistros HL e diminui'do em uma unida- 
de. voltando a apontar para a primeira 
posifao da tela. A instrugao Id (hi), a co- 
loca ali o padrao que antes ocupava a 
posigao seguime. 

O conteudo do par HL e novamen- 
te aumentado, enquanto o conteudo de 
C e diminuido. Se o registro C ainda 
nao contem zero — ou seja, se o fim da 
linha nao foi atingido — , a instrugao jr 
nz.lpj retorna ao rotulo Ipj para deslo- 
car conteudo da coluna seguinte. 
Quando o fim da linha for alcangado. 
a instrugao jr nz.lpj serd ignorada e a 
instrugao inc til aumentara HL em uma 
unidade. 

A instrugao djuz sempre utiliza o par 
de regisiros EC. Como C e iguat a ze- 
ro quando se executa a linha 640 do pro- 
grama, essa instrugao diminui o conteii- 
do de B em uma unidade e volta ao ro- 
tulo Ipi para deslocar uma nova linha. 
Depois que a ultima linha tiver sido des- 
locada para a direita, B contera o valor 
0, e a instrugao ret provocara o retorno 
da sub-rotina. 



A ROTfNA Ig 



A primeira instrugao dessa sub-rotina 
e push be, que guarda o contador de 
colunas na pilha. A instrugao Id 
be, 15616 coloca em BC o enderego ini- 
cial da tabela da ROM em que estao 
contidos OS padroes dos caracteres. O 
primeiro caractere ali representado e o 
espago em branco. Assim, quando a li- 
nha 680 chamar a sub-rotina print, ela 
imprimira um espago de cor apropria- 
da na tela. A instrugao seguinte coloca 
32 em DE. A instrugao add hl.de, por 
sua vez, soma 32 ao conteiido do par 
HL, de modo que ele aponte para o pro- 
ximo bloco da coluna, 

A instrugao pop be recupera o con- 
tador de colunas e a instrugao djnz di- 
minui seu valor em uma unidade, retor- 
nando ao rotudo Ig a fim de imprimir 



mais um espago em branco. O processo 
se repete ate que o conteudo de B seja 
reduzido a zero, indtcando que o ulti- 
mo bloco foi impresso. 

O salto para Ig nao sera executado e 
a instrugao rel fara com que o proces- 
sador retorne ao ponto de onde a sub- 
rotina foi chamada. 



A retina Assembly Ustada a seguir cria 
e desloca na tela do TRS-Color o cena- 
rio de Avalanche. Ela difere das demais 
devido as limitagoes do uso de cores nes- 
se computador. Como a montanha e co- 
berta de relva e cercada peto mar azul, 
nao temos altemativa senao pintar o ceu 
de amarelo. 
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ORG 19109 


20 


JSB MODE 


30 


JSR acLS 


40 


LDX #5631 


50 


LDY ♦17503 


60 


LDB t32 


70 


LOOP PSHS B 


eo 


JSR aCROLL 


90 


J3B PRINT 


100 


PULS B 


110 


DECB 


120 


BKE LOOP 


130 


LDY 117604 


140 


LDX 11569 


150 


JSR PRSUN 


160 


RTS 


170 


NODE EQU 19182 


180 


GCL3 EQU 19161 


190 


SCROLL EQU 19197 


200 


PRINT EQU 19218 



Digite a rotina usando nosso programa 
Assembler. Grave o programa- fonte e de- 
pois monte-o. Grave tamb^m a rotina em 
codigo, usando o comando CSAVEM. A 
rotina nao deve ser execulada ainda, pois 
nao funcionara sem os demais programas 
do anigo. 



DESLOCAMENTO DO CENARIO 



Apos termos definido o enderego ini- 
ciat, precisamos colocar o computador 
no modo grafico e selecionar o conjun- 
to de cores que vamos utilizar. Isso e fei- 
to pela sub-rotina MODE, chamada pe- 
lo comando JSR MODE na linha 20. A 
sub-rotina GCLS limpa a tela, 
colortndo-a de amarelo. 

A instrugao LDX #5631 coloca em X 
o enderego do extremo superior esquer- 
do da tela. Essa drea serd ocupada pelo 
liltimo byte do contorno da montanha 
antes de se iniciar o deslocamento do ce- 
nario. A instrugao LDY # 17503 colo- 
ca em Y o enderego inicial da tabela do 
perfil da encosta. LDB #32 coloca em 



B o niimero de colunas da tela. A ins- 
trugio PSHS B guarda o contador de 
colunas na pilha da m^quina, liberan- 
do o registro B. 

A sub-rotina SCROLL 6 chamada 
para deslocar a coluna uma posigao pa- 
ra a direita. Em seguida, a sub-rotina 
PRINT e chamada, imprimindo uma 
coluna de blocos verdes abaixo do ho- 
rizonte. A instrugao PULS B, na linha 
100, recupera o contador de colunas da 
pilha da maquina. O contador e, entao, 
diminuido em uma unidade por DEC B. 
A instrugao BNE LOOP faz o proces- 
sador voltar a linha 70 para imprimir 
uma nova coluna, ate que o conteudo 
de B acabe se tornando zero. 

Quando isso ocorrer, o programa te- 
ra desenhado a ultima coluna, a instru- 
gao BNE LOOP seri ignorada e o pro- 
grama conlinuari na linha 140. Ali o re- 
gistro Y recebe o enderego inicial do pa- 
drao do desenho do sol na tabela de blo- 
cos grdficos criada no artigo anterior. 
A linha seguinte coloca em X a posigao 
do sol na tela grifica. A instrugao JSR 
PRSUN chama a sub-rotina que dese- 
nha o sol. 

Como de costume, RTS provoca o 
retorno da sub-rotina ao interpretador 
BASIC — ou, quando o jogo estiver 
completo, ao programa principal. 

Virias sub-rotinas chamadas nao es- 
tao listadas no programa-fonie. Falsas 
instrugoes EQV informam seus endere- 
gos iniciais ao Assembler, para que ele 
possa calcular os saltos e desvios. 



INEVITAVEL AMARELO 



A rotina GCLS limpa a tela, 
colorindo-a totalmente de amarelo — 
cor do ecu nesta versao do jogo. 
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ORG 19161 
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GCLS LDX tl536 
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LDA #85 
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OCLSl STA.X+ 
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BLO GCLSI 
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RTS 



A rotina comega colocando em X o 

enderego inicial da tela — 1536. A ins- 
trugao LDA #85 coloca no acumulador 
o c6digo da cor amarela. 

A instrugao STA ,X + coloca o con- 
teiido do acumutador no enderego apon- 
tado por X e aumenta o valor de X em 
uma unidade. A instrugao CMPX # 7680 
compara X com 7680, primeiro byte aci- 
ma do final da tela. A instrugao BLO 
GOLSl retorna k linha 40 para colorir a 
pr6xima posigao de tela, enquanto o fi- 
nal da memoria de video nao tiver sido 
alcangado por X — ou seja, enquanto X 
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for menor que 7680. Quando isso acon- 
tece, a instru?ao RTS faz com que o pro- 
cessador volte ao ponto de onde a rotina 
Toi chamada. 



MODO GRAfICO 



As quatro sub-rotinas seguintes po- 
dem ser montadas juntas, pots ocupam 
posi?6es consecutivas na mem6ria. 

Para modificar o modo grafico do 
TRS-Color temos que nos comunicar 
com dois circuitos integrados especiais 
que controlam o video. Esses chips sao 
o Gerador de Video ou VDG {Video 
Display Generator) e o Multiplexador 
Sincrono de Endereipos ou SAM 
{Synchronous Address Multiplexor). 

Na linha 20, o valor 229 e colocado 
no acumuJador. A seguir, a instru^ao 
ST A 65314 coloca o mesmo valor no en- 
derefo FF22. Essa posi^ao da mein6ria 
conirola a saida de dados para o VDG 
e outros perifericos. Cada bit desse byte 
tem uma funfao diferente. 

Na linha 30, o niimero 229 — 
1 1 100101 — estabelece as linhas de co- 
municaijao. O "1" no bit sele determi- 
na o modo grafico; "0" seria o modo 
de texlo. Os bits seis e cinco, valendo 
"1", definem o modogrdfico P3. O bit 
tres seleciona as cores — aqui, "0" da 
verde, vermelho, amarelo e azul. 

Os bits dois, um e zero nao se refe- 
rem ao VDG. Eles controlam o tama- 
nho da meni6ria RAM, a produgao de 
sons e a saida para a impressora, respec- 
livamente. Sua conformagao usual e 
101. Por isso, quando for modificar o 
conteiido desse byte, cotoque 101 nos 
tres primeiros bits, a menos que haja al- 
guma razio para nao faze-lo. 

Quando alteramos as linhas de comu- 
nica^ao com o VDG, devemos fazer 
tambem aigumas altera^oes nos bytes 
que se referem ao SAM. Esse chip tem 
um regisiro de dezesseis bits que corres- 
ponde as posifoes de memdria que vao 
de FFCO a FFDF — intervalo que con- 
tern 32 bytes. Cada bit do registro exis- 
tente nessas posifoes e ativado quando 
coiocamos um valor nos bytes impares 
correspondentes, e apagado quando fa- 
zemos mesmo nos bytes pares. O va- 
lor colocado nos byles e no registro do 
VDG deve ser o mesmo. Os bits ativa- 
dos pelas linhas 40 a 60 do programa- 
fonte informam ao SAM que a memo- 
ria de video come^a no endere^o 1536. 



60 
70 



3TA 
RTS 



65479 



SCROLL HORIZONTAL 



O rotulo SCROLL marca o inicio da 
rotina que executa um deslocamento ho- 
rizontal do conteudo da tela para a di- 
reita. Esse processo — chamado geral- 
meme de SCROLL horizontal — pcrmi- 
te que desenhemos o cenirio a partir da 
extremidade esquerda do video. 
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Essa rotina precisa utilizar os regis- 
tros X e Y, mas niimeros muito impor- 
tantes foram guardados ali por outras 
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rotinas. Assim. a primeira providencia 
do programa, na linha 10, e guardar es- 
ses valores na pilha da maquina, com a 
instrugao PSHS X,V. 

As linhas 20 e 30 eolocam em X e Y 
OS enderegos da primeira e da segurida 
posigoes da tela, respectivamente. A ins- 
trufjao LDA ,Y + coloca em A o con- 
teiido da posi?ao apontada por Y, e Y 
aumenta em uma unidade. 

A instru(;ao STA ,X + coloca o con- 
teudo de A na posigao apontada por X, 




e X aumenta em uma unidade. Portan- 

to, na primeira passagem do processa- 
dor, as linhas 40 e 50 eolocam o conteu- 
do da segunda posi^ao da tela dentro da 
primeira posi(;ao, atualizando ainda os 
valores dos dois apontadores. 

A instrucao CM PX # 7679 compara 
o conteudo de X com o ultimo endere- 
go da memoria de video. Enquanio X 
contiver urn valor inferior, a instrufao 
BLO SCROLL envia o processador de 
voita a linha 1 para deslocar mais uma 
posi?ao de memoria para a esquerda. 

A rotina nao so desloca todo o con- 
teiido da tela uma posigao para a esquer- 
da como tambem coloca o que havia na 
ultima coluna da esquerda para a ulti- 
ma coluna da direita, uma linha acima. 
Isso nao tem importancia, jA que a ulti- 
ma coluna da direiia sera apagada pe- 
los blocos que desenham o cenario. 

Quando o conteudo da ultima posi- 
(;ao da memoria de video for deslocado 
para a esquerda, o conteudo original dos 
rcgistros X e Y serd recuperado da pi- 
lha pelo comando PULS Y,X. A insiru- 
(;ao RTS da linha 90 provocard o retor- 
no da sub-rotina. 



NOVO CENARIO 



Os blocos grdficos que compSem o 
cenario preenchem a ultima coluna da 
direita, a medida que o conteudo da te- 
la vai sendo deslocado para a esquerda. 
A rotina responsavel por esse processo 
c a seguinte: 
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90 


LDB 18 


100 


FBI LDA ,¥+ 


110 


STA .X 


120 


LEAX 32.x 


130 


DECS 


140 


BNE PR I 


150 


PULS y 


160 


PRZ CLR ,X 


170 


LEAX 32, X 


leo 


CMPX 17680 


190 


BLC PRZ 


200 


PULS X 



Desta vez a rotina usar^ o valor con- 
tido no apontador Y. Se estivermos de- 
senhando uma porgao inclinada da 
montanha, podera ser necessario modi- 
ficar a altura do horizonte contida no 
registro X, Mas, porenquanto, a instru- 
gao PSH X guarda o conteudo de X na 
pilha da mdquina. 



A instrugao LDA ,Y -t- coloca em A 

o conieiido do enderego indicado por Y 
e o apontador aumenta em uma unida- 
de. A seguir, a instrugao SUBA #33 
subtrai 33 unidades de A. 

O nilmero 33 e o codigo ASCII do 
ponto de exclamagao e. na tabela cria- 
da pelo programa do arligo anterior, 
significa que a encosta e inclinada na- 
quela posigao." Se este nao for o caso, 
a subtragao nao resuka em zero, o que 
faz a instrugao BNE PRZ provocar um 
sallo para a linha 160. Se A contiver o 
valor 33, indicando inclinagao da encos- 
ta, a instrugao BNE e ignorada e o pro- 
grama continua. 

A instrugao PDLS X recupera da pi- 
lha a altura do horizonte, e a instrugao 
seguinte subtrai 256 unidades de X. O 
nijmero 256 e igual a 8 x 32 — apon- 
tador X subiu, assim, oito linhas (ou um 
bloco) na tela. O novo valor de X e re- 
colocado na pilha da maquina para ser 
usado no de.5enho da coluna seguinte. 
O valor do apontador Y — que aponta 
para a tabela de contorno da montanha 
— tambem i guardado na pilha. 

A instrugao LDY # 17536 coloca em 
Y o enderego inicial do padrao do bloco 
de uma porgao inclinada da montanha. 
O bloco e descnhado na posigao aponta- 
da por X. Nesie modo grafico os pontes 
sao criados em grupos de dois, com base 
no valor de dois bits. Dois bits podem ter 
quatro valores diferentes, um para cada 
cor. A organ izagao da memoria de vi- 
deo foi explicada no ariigo da pagina 86, 

A instrugao DECB diminui o conteu- 
do do contador B em uma unidade e, en- 
quanto esse contador nao tiver sido re- 
duzido a zero, a instrugao BNE PRI fa- 
ra com que o processador volte a linha 
100 para desenhar a proxima linha. 
Quando B contiver zero, a ultima linha 
tera sido desenhada. 

Em seguida, a instrugao PULS V re- 
cupera da pilha o apontador da tabela 
de contorno da montanha. O programa 
continua na linha rotulada PRZ. Esta 
e a rotina para a qual o programa salta- 
ria se a montanha fosse plana neste pon- 
to (veja linha 40), Sua fungao e desenhar 
uma coluna de blocos verdes, recobrin- 
do parte da montanha. 



COMO FUNCIONA 



A instrugao CLR ,X limpa o conteii- 
do do enderego apontado por X. Lim- 
par — ou seja, tornar igual a zero — o 
contetido de uma posigao de memoria 
equivalc, no caso, a pintar aqueta posi- 
gao com a cor verde. A instrugao LEAX 
32, X soma 32 ao apontador X, fazendo- 
o descer uma linha na tela. 
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A instru^ao CMPX #7680 vcrifica 
se o apontador ultrapa<;sou o final da 
mem6ria de video. Enquanto isso nio 
ocorrer, a instru<;ao BLO PRZ fari o 
processador voltar ao r6tulo PRZ para 
desenhar mais uma linha de oito ponti- 
nhos verdes. Ao sc completar a coluna 
de blocos verdes, a instru?ao PULS X 
recupera da pilha o valor da altura do 
horizonte. A instrugao RTS marca o fi- 
nal da sub-rotina. 



uma unidade per DECB. Enquanto as 
trinta colunas nao tiverem sido desenha- 
das, a tnstrutpao BNE PRSUNI fax com 
que processador volte ^ linha 20, re- 
petindo processo. 

Se a ultima linha foi tragada, B 
reduz-se a zero, a instruQSo da linha 1 10 
^ ignorada e o programa encontra a ins- 
tru^ao RTS, que provoca o retorno da 
sub-rotina. 




Os dados necessArios ao desenho do 
sot (padrdes e posi^des na tela) se encon- 
tram na tabela criada no artigo anterior. 
Esses dados sao utilizados pela retina 
Assembly listada a seguir, que preenche 
um espapo de 32 por 30 pontos no ceu. 



10 


PREUN LDB 130 


20 


PRStmi PSHS B 


30 


LDB 14 


40 


PRSUN2 LDA .Y 


SO 


STA ,X+ 


60 


DECB 


70 


BNE PRSUNZ 


60 


LEAX 28, X 


90 


PULCS B 


100 


DECB 


110 


BNE PRSUNI 


120 


RTS 



A instrufio LDB #30 coloca no con- 
tador B o niimero de linhas que serao 
preenchidas para desenhar o sol, De- 
pois, a instruf ao PULS B guarda o con- 
tador na pilha da m^quina. A linha se- 
guinte coloca o niimero 4 no registro B, 
definindo em quairo bytes — ou 4 x 8 
= 32 bits — a largura do desenho. Mes- 
mo que quisessemos desenhar um sol 
com 30 X 30 pontos, precisan'amos de 
um quadricutado de 32 x 30 pontos — 
usariamos, no caso, quatro bytes, dei- 
xando duas colunas com a cor de fundo. 

Como de costume, a instru(;ao LDA 
,Y + obtem o padrao de uma parte dos 
desenhos no endere^o apontado por Y, 
colocando-o em A e aumentando em 
uma unidade o apontador. A instrugao 
STA ,X -t- cotoca esse padrao na tela, na 
posicao apontada por X, aumentando 
tamb^m em uma unidade o valor desse 
apontador. A instrufao DECB diminui 
o valor do contador e, enquanto B nSo 
for zero, a instrugao BNE PRSUNZ re- 
torna h linha 40, fazendo com que qua- 
tro bytes sejam colocados na tela. 

Quando o ultimo byte da linha tiver 
sido desenhado, a instrutao LEAX 2S,X 
soma 28 ao conteudo de X, de modo que 
ele aponte para o ini'cio da pr6xtma li- 
nha. O contador de linhas e recuperado 
^ da pilha por PULS B e diminuido em 



Quando escrevemos a pagina de ins- 
trugoes, a tela estava no modo texto de 
quarenta colunas, totalmente inadequa- 
do para o ceniirio de um jogo de aflo. 
A rotina Assembly a seguir seleciona o 
modo grctfico de alta resolugao. 



10 


oro -12144 


20 


Id h) .62441 


30 


Id (hi), 4 


40 


inc hi 


50 


Id (hn.7 


60 


inc hi 


70 


Id (hi), 7 


80 


call 114 


90 ■ 


Id a, 226 


100 


Id (62432) 


110 


call lOS 


120 


ret 


130 


end 



Para selecionar as cores da tela, i pre- 
ciso modificar o conteudo de algumas 
posiifOes da RAM, nas quais o sistema 
armazena valores usados no controle 
das diversas operapoes do micro. 

A instrugao que se segue a definicao 
do enderego inicial coloca em HL o en- 
derefo do byte que determina a cor de 
Trente usada na tela. Depois, a instru- 
^ao Id (hl),4 utiliza o enderefamento in- 
direto para colocar ali o c6digo da cor 
azul-escuro. 

O par HL, usado como apontador, 
tem seu conteiido aumentado em uma 
unidade pela instru9ao inc hi. passando 
a apontar para o proximo endere^o, que 
determina a cor de fundo da tela. Esse 
byte recebe o valor 7, que e o c<3digo da 
corciano. Duas outras instru^oes colo- 
cam o mesmo codigo na posi^ao seguin- 
te, que determina qual sera a cor da mol- 
dura da tela. 

A instru^ao call 114^ responsivel pe- 
la modificacao das cores e do modo de 
exibii^ao da tela. Ela chama uma sub- 
rotina do sistema, que coloca o compu- 
tador no modo grdfico de alta resolu* 
cao. Essa rotina equivale a um coman- 
do SCREEN 2,0, ou seja, ela nao somen- 
te coloca o computador no modo grdfi- 
co como tambem limpa a tela, preenche 
as tabelas da VRAM com seu conteudo 
padrao e, ainda, acerta os conleiidos do 



VDP (Video Display Processor), chip de 
imagem do MSX. 

A rotina chamada na linha 80, con- 
tudo, preparou o VDP para exibir spri- 
tes pequenos (8x8 pontos), quando 
nds precisamos de sprites grandes (16 x 
16 pontos). Para fazer os acertos neces- 
sdrios, teremos que modificar o conteii- 
do de um dos registros do VDP. Estes 
podem ser alterados atrav^s das posi^oes 
de mem6ria que vao de 6243 1 a 62438 
— o que corresponde a oito registros de 
oito bits. As fun^oes de cada registro do 
VDP serSo comentadas em outro arti- 
go. Por hora, interessa-nos apenas o re- 
gistro 1, que modificaremos atrav^s do 
endereco 62432. 

As instrucoes das linhas 90 e 100 da 
tistagem colocam nesse registro o valor 
226. Note que o uso do acumulador e 
temporario, justificando-se pela inexis- 
tencia de uma instru^ao que coloque 
um niimero diretamente em uma posi- 
Cao de memoria. Nao h^ uma instru* 
pao Id (62432), 226, 

Cada bit do registo 1 do VDP tem 
uma fun^ao. O bit 7 indica o tamanho 
da VRAM utilizada, o bit 6 tiga c desli- 
ga a tela, o bit 5 seleciona o modo de 
interrupcao, os bits 3 e 4 determinam o 
tipo de tela (dois bits nos dao quatro op- 
p6es; telas 0, 1 , 2 e 3), o bit 2 nao e uti- 
lizado, o bit 1 controla o tamanho logi- 
co do sprite (8 x 8 ou 16 X 16 pontos) 
e o bit 0, finalmente, controla o tama- 
nho fisico do sprite (normal ou amplia- 
do). Assim, como 226 e 11110010 em 
sistema binario, quando colocado no re- 
gistro 1, ele determina uma VRAM de 
dezesseis Kbytes, tela ligada, com pos- 
sibilidade de interrup^ao, modo gr^fi- 
co de alta resolu^io e sprites grandes 
nao ampliados. 

A sub-rotina chamada na linha 80 
preencheu a tabela de atributos de spri- 
tes (veja o artigo da pagina 808) com no- 
mes compativeis com sprites pequenos. 
A instrufao call 105 chama, entao, ou- 
tra sub-rotina da ROM, que preenche a 
mesma tabela com valores compativeis 
com sprites de 16 x 16 ponios. Na rea- 
lidade, essa sub-rotina preenche a tabe- 
la de atributos com seu conteudo pa- 
drao, con forme os valores dos registros 
do VDP. Depois disso, nossa rotina ter- 
mina com a instru^ao ret. 



TABELA DE PADROES 



A tela de alta resolu?§o dos micro- 
computadores da linha MSX e organi- 
zada em cinco tabelas: nomes, padroes, 
cores, atributos de sprites e padrdes de 
sprites. Os efeiios visuais do videogame 
sao criados por intermedio da modifi- 




cagao dos valores contidos nessas 
tabelas. 

A rotina listada a seguir transfere pa- 
ra a tabela de padroes os blocos grdfi- 
cos criados pelo programa BASIC do 
artigo anterior. Como os mesmos blo- 
cos sao transferidos para a tabeia de pa- 
droes dc sprites, podemos utilizar as fi- 
guras que criamos tanto na forma de 
blocos graficos como na forma de spri- 
tes. Observe que o programa exige que 
o banco de blocos anieriormente cria- 
do esteja na mem6ria. 



240 Id e.l 

250 pop hi 

260 pop be 

270 push be 

280 push hi 

290 call 92 

300 Id de. (62415> 

310 pop hi 

320 pop be 

330 call 92 

340 ret 

350 end 



10 


org -12121 


20 


Id de, (62411) 


30 


Id hi, -15100 


40 


Id be. 640 


50 


push be 


60 


push hi 


70 


push de 


80 


call 92 


90 


pop de 


100 


Id hl.204S 


110 


add hl.de 


120 


Id d.h 


130 


Id e.l 


140 


pop hi 


150 


pop be 


160 


push be 


170 


push hi 


180 


puah de 


190 


eall 92 


200 


pop de 


210 


Id hi, 2048 


220 


add hi ,de 


230 


Id d.h 



Para transferir os padroes da RAM 
para a VRAM, utilizamos a sub-rotina 
da ROM que fica no enderepo 92. Usa- 
mos a mesma sub-rotina para criar a pi- 
gina inicial e escrcver as instrugdes. 

A instrugao Id de,(624n) coloca em 
DE o enderego inicial da tabela de pa- 
droes. Esse enderefo fica armazenado 
nos bytes 624 1 1 e 624 1 2 e equivale a BA- 
SE(12), Note que a instrugao transfere 
dezesseis bits, ou scja, um par de bytes 
para um par de rcgistros, O registro E 
recebe o conteiido de 6241 1 , byte menos 
significativo. D recebe o byte mais sig- 
nificativo, 62412. 

A instrupao seguinte coloca em HL 
o endere^o inicial do banco de blocos 
que criamos na mem6ria. O numero de 
bytes a serem transferidos para a VRAM 
e colocado em BC por Id be, 700. 

A sub-roiina que cometa no endere- 
QO 92 baseia-se no conteiido dos regis- 
tros DE, HL e BC para efetuar a trans- 




ferencia. DE deve confer o endcreco ini- 
cial da por^ao da VRAM a ser modifi- 
cada; HL, o endere^o inicial da por(pao 
da RAM que vai ser transferida; e BC, 
numero de bytes. Como a sub-rotina 
altera o conteiido desses mesmos regis- 
tros no decor rer de seu funcionamento, 
eles sao guardados na pllha, para even- 
tual uso futuro. As instrtiifoes push be, 
push hi e push de iratam disso, antes que 
call 92 mande o processador executar a 
sub-rotina. 

A tela de nomes da tela de alta reso- 
lugao e dividida em tres porcoes, cada 
uma representando os padroes contidos 
no ter9o correspondente da tabela de pa- 
droes. Como usaremos toda a tela, pre- 
cisaremos ter tres c6pias do banco de 
blocos na tabeia de padroes. 

Para fazer a segunda c6pia, o ende- 
rego inicial da tabela de padroes e recu- 
perado como pop de. O par HL recebe, 
entao, o valor 2048, que corresponde a 
posicao inicial do segundo terfo da ta- 
bela de padroes. Esse valor e somado ao 
enderefo inicial da tabela, para obter- 
mos endere^o inicial do ter^o medio 
na VRAM. A instrucao que faz esta so- 
ma — add hl.de ^ deixa o resultado da 
opera<;ao em HL, 

Precisamos do endere^o inicial em 
DE. Como nao existem as instru(;des 
add de,hl e Id de.hL para transferir o re- 
sultado para o par HL utilizamos duas 
instrucoes: Id d.h e Id e,l. 

O endere^o inicial do banco de blo- 
cos na RAM i recuperado da pilha com 
pop hi e o numero de bytes a serem 
transferidos para a VRAM, como pop 
be. Observe que a ordem de recupera- 
(;ao dos pares de registro da pilha e a 
mesma de sua colocacao. Os registros 
sSo guardados na pilha novamente, an- 
tes que call 92 volte a transferir o ban- 
co de blocos para a VRAM. 

Obtem-se a terceira copia do banco 
de blocos de maneira muito parecida, O 
endereijo inicial do lerco medio e recu- 
perado e somado a 2048, resultando no 
endereco correspondente ao tergo infe- 
rior. HL e BC sao rccuperados da pilha 
e a rotina da membria ROM ^ executa- 
da novamente, Desta vez, somente BC 
e HL sao guardados na pilha. 

Uma quarts copia do banco de blo- 
cos deve ser feita na tabela de padroes 
de sprites. O enderego inicial da tabela 
e armazenado nos endercfos 62415 e 
62416. A instrugao Id de,{62415) trans- 
fere esses dois bytes para DE, como foi 
explicado anteriormcnie. 

As instrugdes pop hi e pop be recu- 
peram da pilha o enderego inicial e o ta- 
manho do banco. A c6pia e feita com 
call 92. A rotina termina com uma ins- 



trugao ret. 
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A TABELA DE CORES 



Se nao colocarmos valores adequados 
na tabela de cores, nenhum bloco gra- 
fico seri mostrado no video. Um novo 
programa BASIC, que coloca os codi- 
gos de cores no topo da memdria, esta 
listado no final do artigo. Os valores sao 
transferidos para a labda de cores da te- 
la grafica por esta rotina: 



10 


org -12066 


20 


Id de, (62409) 


30 


Id hi, -16100 


40 


Id be, 672 


50 


push be 


60 


push hi 


70 


puah de 


BO 


call 92 


90 


pop de 


100 


Id hi. 2048 


110 


add hl.de 


120 


Id d.h 


130 


Id e,l 


HO 


pop hi 


150 


pop be 


160 


push be 


170 


push hi 


IBO 


puah de 


190 


call 92 


200 


pop de 


210 


Id hl.?048 


2 20 


add hi ,de 


230 


Id d.h 


240 


Id e, 1 


250 


pop hi 


260 


pop be 


270 


call 92 


280 


ret 


290 


end 



i 



Essa rotina e bem parecida com a an- 
terior. Ela come?a colocando eni DE o 
endereijo inicial da tabela de cores, ar- 
mazenado nos enderecos 62409 e 62410. 
HL recebe o endere^o inicial da lista de 
codigos de cores que sera criada pelo 
programa BASIC no final do artigo. BC 
recebe o niimero de bytes a serem trans- 
feridos. Os conteudos desses Ires pares 
de registros sao guardados na pilha e a 
rotina do endere^o 92 e chamada no- 
vamente. 

Utiliza-se o mesmo processo exptica- 
do anteriormente para a .obtengao de 
tres copias do banco de cores — cada 
uma correspondendo a um ter(;o do vi- 
deo. Sprites serao coloridos no momen- 
to em que surgirem no video. 



SCROIL HORIZONTAL 



Para realizar o deslocamento da tela 
para a direita, usaremos um processo 
muito semelhante ao que foi descrito no 
artigo da pagina 213. 

As tres rotinas listadas abaixo reali- 



zam o processo da translagao do conteii- 
do da tela grafica: 



10 


org -12022 


20 


Id hi, <62407) 


30 


Id de,-60D0 


40 


Id bc,76B 


50 


call B9 


60 


ret 


70 


org -12009 


BO 


Id de.-5233 


90 


Id hi. -5234 


100 


Id b,24 


110 


loop puBh be 


120 


Id a, (de) 


130 


Id be. 31 


140 


Iddr 


150 


Id (de],a 


160 


dee hi 


170 


dec de 


180 


poti be 


190 


djnz loop 


200 


ret 


210 


org -11987 


220 


Id de. (62407) 


230 


Id hi, -6000 


240 


Id be. 768 


250 


call 92 


260 


ret 


270 


end 



A primeira rotina transfere o conteu- 
do da tabela de nomes da tela de alta re- 
solugao para um buffer localizado no 
topo da memoria. 

O enderego inicial dessa tabela na 
VRAM fica guardado nos bytes 62407 
e 62408 da RAM. A instru<;ao da linha 
20 do programa coloca esse valor no par 
de registros HL. O enderefo initial do 
buffer e colocado em DE por Id 
de,-6000. O numero de bytes a serem 
transferidos vai para o par de registros 
BC. A instrugao call 89 chama, entao, 
a sub-rotina da ROM que transfere nu- 
meros da VRAM para a RAM. 

A segunda sub-rotina, que comega na 
linha 70, promove o deslocamento do 
contetido do buffer para a direita. 

Os endere(;os dos dois uliimos bytes 
do buffer sao colocados em DE e HL. 
O numero de linhas da tela vai para B. 
Como BC sera utilizado adiante, a ins- 
tru^ao push be armazena o conlador de 
linhas na pilha. 

O conieudo da liltima posigao da te- 
la e guardado no acumulador por Id 
a,(de). O par BC recebe o numero de co- 
lunas de uma linha — 3L A instru^ao 
Iddr coloca no cndereto apontado por 
DE o conteudo do enderefo apontado 
por HL e subtrai uma unidade de cada 
um dos apontadores e do contador BC. 
O processo e repetido automaticamen- 
te at^ que BC seja zero, A instrupao da 
linha 140 desloca, assim, toda uma li- 
nha de blocos para a direita. 

O conteudo da liltima posi«;ao da li- 
nha e colocado na primeira posi^ao. 



agora apontada por DE. As instrugoes 
dec hi e dec de fa^em com que esses re- 
gistros aponiem para as duas ultimas 
posigoes da pro.vima linha a ser deslo- 
cada. No nosso caso, ela fica imediata- 
mente acima da primeira. 

O contador de linhas e recuperado da 
pilha e djnz repete o la(;o lo»p ate que 
todas as 24 linhas de blocos graficos que 
com poem o buffer tenham sido des- 
locadas. 

A liltima rotina, que comega na linha 
210, transfere o conteudo do buffer de 
volla para a tabela de nomes. Suas ins- 
tru^oes sao parecidas com as da rotina 
da linha 10, so que DE recebe o endere- 
qo da tabela na VRAM e HL recebe o 
enderei;o do buffer. A rotina chamada 
fica no endereyo 92 da ROM. 



A ROTINA PRINCIPAL 



Para descnhar a montanha que Wil- 
lie deve escalar, o programa usa a se- 
guinte rotina: 



10 


org 53563 


20 


Id a. 255 


30 


Id hi. (62407) 


40 


Id be, 768 


50 


rail 86 


60 


call -12121 


70 


call -12066 


80 


call -12022 


90 


Id a. 8 


100 


Id (-5230), a 


LIO 


Id a,0 


120 


Id (-5229). a 


1 30 


Id hi. -6001 


140 


Id b,33 


150 


mpi puah be 


160 


push hi 


1 70 


call -11987 


180 


call -12009 


190 


pop hi 


200 


Id a. (-5229) 


210 


cp L 


22U 


jr nz , tq 


230 


Id a. (-5230) 


240 


inc a 


2 50 


Id (-5230), a 


260 


tq Id a.O 


270 


Id (-5229), a 


280 


Id a, (hi) 


290 


dec hi 


300 


pusli hi 


310 


cp 33 


320 


3T nz, Iv 


330 


id a,l 


340 


Id (-5229) .a 


3S0 


Iv Id a. t-5230) 


360 


Id b.a 


3/0 


Id hi. -6000 


380 


Id a. 255 


390 


call Ig 


400 


Id b,48 


410 


Id a, (-5229) 


420 


CP 1 


430 


jr nz.no 



440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
'580 
590 
600 
610 
620 
630 
640 
650 



Id 
no 
Id 



b,52 
Id a,h 
{hi) .a 



Id a, (-5230) 

Id b , a 

Id a, 23 

sub b 

Id b,a 

Id a, 81 

Id de,32 

Add hi ,de 

call Ig 

pop hi 

pap be 

d^inz mpi 

ret 

Ig Id (hi), a 

Id de.32 

add hi ,de 

djn? Ig 

ret 

end 



A tabela de nomes sera utitizada pa- 
ra representar blocos graficas. Estes de- 
vem estar clevidamente representados 
nas tabelas de padroes e de cores. Para 
entender o funcionamento das rotinas 
graficas e necessario conheccr a organi- 
zagao da VRAM. 

A primeira coisa que a rotina princi- 
pal Taz e preencher a labela de nomes 
com o numero 255. Isso equivale a en- 
cher a tela com o bloco grafico de codi- 
go 255, que, no nosso caso, e um bloco 
ciano. O acumulador recebe o codigo do 
bloco, 255. A instrut;ao Id hl,(62407) co- 
loca o endereco inicial da tabela de no- 
mes em HL. BC recebe o numero de 
bytes da tabefa — 768. 

A rotina da memdria ROM chama- 
da por call 86 preenche com o conteii- 
do de A uma por<;ao da VRAM. O par 
de registros HL aponta o endere^o ini- 
cial da porgao e o par BC, o numero de 
byies que sofrcrao alterafoes, 

A linha 60 chama a sub-rotina que 
gera os padroes dos bytes, e a 70, a sub- 
rotina que cuida da tabela de cores. A 
sub-rotina do enderefo - 12022 coloca 
o contetjdo da tabela de nomes no buf- 
fer de de.slocamento. 

As linhas 90 c UX) colocani no ende- 
rego -5230 o niimero da linha em que co- 
locaremcs o horizonte. O enderei;o 
-5229 recebe o valor zero. Esse byte scr- 
vira de indicador de inclinav'ao da mon- 
tanha. Se valer zero, ela sera plana; se 
vaier um, sera inclinada. 

O par HL recebe o liltimo valor da 
tabela de pcrfil da encosta. Essa tabela 
sera gerada por um programa BASIC 
tistado no final do artigo. O perfil e dc- 
finido por meio de codigos que indicam 
se a montanha e plana ou inclinada num 
determinado local. 

Na linha 140, B recebe o niimero de 
colunas, que e logo colocado na pilha 



para liberar o uso desse rcgistro. As li- 
nhas 170 e 180 ehamam as rotinas que 
copiam o buffer na labela de nomes e 
realizam o deslocamento. 

As linhas 200 a 250 verificam se o in- 
dicador de inctinai;ao, no enderet^o 
-5229, foi modificado anteriormente. 
Quando i-S-so aconiecer, a linha do hori- 
zonte deve ser alterada no enderego 
-5230, o que e feito pelas linhas 230 a 
250. A seguir, o indicador recebe nova- 
mente o valor zero. 

A insirugao Id a,(hl) coloca em A 
valor da tabela de perfil da encosta 
apontado por HL. Em scguida, esse par 
de registros e diminuido em uma unida- 
de e guardado na pilha. 

O conteiJdo de A e comparado a 33 
— valor que indica regiao inclinada. Sc 
A tiver outro valor, a insirucao jr nz,lv 
salta para o rotulo Iv. Caso contrario, 
as linhas 330 e 340 colocam o mlmero 
1 no indicador de inclina<;ao. 



A ROTINA Iv 



As instrugoes das linhas 350 e 360 co- 
locam em B o niimero da linha do hori- 
zonte. Is.so e feito com o auxiHo do acu- 
mulador, ja que nao exisle uma instru- 
vao que coloque o conteiido de um en- 
dereijo diretamente em B. HL recebe o 
endere^o inicial do buffer, que corres- 
ponde ao topo da primeira coluna da te- 
la. A instru;;ao Id a, 255 coloca o codi- 
go do bloco ciano no acumulador. Esse 
bloco sera u.sado para desenhar o ceu. 
A rotina Ig descnha uma coluna de blo- 
cos ciano. 

A instru(;ao Id b.48 coloca em B o 
codigo do bloco que represema uma 
por^ao plana da montanha. As duas 
linhas seguintes verificam o conteiido do 
indicador de inclinagao. Se a encosta for 
plana nessa coluna, a instruvao jrn/,nci 
dcsvia o programa para o roiulo no. 
Se for inclinada, B recebe o codigo do 
btoco adequado e a rotina passa ao 
rotulo no. 



A ROTINA no 



As linhas 450 e 460 colocam o bloco 
adequado na posigao apontada pelo par 
de registros HL. As duas linhas que sc 
'iCguem colocam em B o niimero da li- 
nha do horizonte. O registro A recebe 
o numero de linhas da tela e a instrui;ao 
da linha 500 subtrai o niimero da iinha 
de horizonte desse valor. Ca!cula-se, as- 
sim, o niimero de blocos que devem ser 
colocados abaixo da linha de horizonte 
nesta coluna. 

O resultado da operacao fica em A; 



a instruvao Id b,a transfere-o para B, A 
instrui;ao Id a, 81 coloca em A o codigo 
do caractere verde, que preenche a en- 
costa. O par de registros DE recebe o 
niimero 32 e add hl.de soma esse valor 
ao conteiido de HL, para que este apon- 
te para a linha seguinte. A rotina Ig e 
chamada novamente para desenhar uma 
coluna de blocos. 

Para finalizar. a posii;ao do aponta- 
dor da tabela de perfil da encosta da 
montanha e recuperado da pilha por 
pop hi. O contador de colunas tambem 
sat da iwlha com pop be. A instrugao 
djnz repete o processo ate que as 32 co- 
lunas do desenho tenham sido traijadas 
e deslocadas na tela. 



A ROTINA Ig 



Essa rotina desenha uma coluna de 
blocos. O codigo do bloco deve estar no 
acumulador; o enderefo inicial da colu- 
na no buffer deve estar em HL; o nii- 
mero de linhas, em B. 

A linha 600 coloca o codigo do blo- 
co grifico no enderefo dado por HL. 
DE recebe o numero 32, que e logo so- 
mado ao conteiido de HL. A instrugao 
djnz repeie o processo de acordo com 
o conteiido de B. 



AS TABELAS 



Este programa cria a tabela de cores 
na RAM: 

5 CLEAR 200,-16100 

10 FOB I-O TO 20 

2 READ A 

30 FOR J=0 TO 31 

40 POKE -16i00+I*32+J,A 

50 NEXT J, I 

100 DATA 23,23,23.103,103,247.2 

47, 23, 23. 199, 199, 199. 55, 55, 16 7. 

135,215.151 .244,2'}4.51 

A tabela criada tern 672 bytes. Cada 
valor na linha DATA 100 corresponde 
a um codigo dc cor, que e repetido 32 
vezes, uma para cada linha do bloco 
grafico. 

O programa a seguir cria a tabela do 
perfil da encosta: 

10 FOR 1=0 TO 31 

20 HEAD A: POKE -6032+1, A 

30 NEXT 

100 DATA 33.33.35,35,33,35.35.3 

5,3 3,35.35,33.35,33,35,35, 35,35 

. 33 , 35 , 33 , 35 , 35 . 3S , 35 , 33 , 35 . 35 . 

33,35.35,35 

Cada valor da linha DATA 100 cor- 
responde a uma coluna do desenho. Um 
niimero 33 significa porgao inclinada, e 
um 35, por(;ao plana. B 
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UMA AGENDA 
ELETRONICA Cl ) 



Com nosso programa para calendcirio 
e agenda, vocl poder^ planejar seus 
compromissos didrios e manter um 
registro de datas especiais. Aproveite 
a oportunidade e organize-se! 



Voce e daquele tipo de pessoa que 
sempre se esquece do aniversirio da es- 
posa ou so se lembra da hora marcada 
no dentista quando ja e tarde demais? 
Ou, ainda, que se assusta ao descobrir 
que uma conta de luz estd vencida ha 
mais de um mes? 

O programa que apresentamos neste 
artigo cuidard de todos os seus compro- 
missos. Com ele, voce nao tera mais des^ 
culpas para faltar a enconlros ou deixar 
de pagar suas comas na data certa. Ten- 
do uma impressora, voce poderd, inclu- 
sive, fazer uma c6pia da agenda em pa- 
pel, para consuita-la sempre que estiver 
longe do computador. 



CALENOARIO AUTOMATICO 



Este programa coloca a sua disposi- 
cao um calendario ou uma agenda. A 
primeira op^ao e a mais simples: mos- 
tra um calendario para qualquer mes 
dos anos de 1753 a 29999. A apresenta- 
gao do calendario e a usual, com os dias 
da semana no topo e os dias do mes 
abaixo. O programa leva em considera- 
gao, automaticamente, os anos bissex- 
tos, e indica a data do domingo de Pas- 
coa no mes correspondente. 

6 possivel, ainda, imprimir um calen- 
dirio para o ano todo — alternativa es- 
pecialmente util se voce pretende coloca- 
lo em sua escrivaninha ou pcnduri-Io 
na parede. 



A AGENDA ELETRfiNlCA 



Nossa agenda permitira que vocS or- 
ganize melhor seu dia-a-dia, mantendo 
um registro de todos os seus compromis- 
sos. As entradas sao feitas sob quatro 
titulos — Finangas, Encontros, Celebra- 
goes e Feriados — , o que torna mais fa- 
cil encontrar um determinado tipo de in- 
form agao. 




E muito simples dar entrada k infer- 
magao e, como vantagem adicional, o 
programa requer um linico registro dos 
eventos regutares. Assim, aniversdrios e 
contas a pagar podem ser anotados uma 
s6 vez, no dia correto, em todos os me- 
ses ou anos subseqiientes. Quando se di- 
gita um dado de Finangas, por exemplo, 
o programa pergunta se o evento e lini- 
co (apenas para aquela data especifica). 



mensal, trimestral ou anual. Se voce es- 
ti entrando dados sobre um pagamen- 
to mensal, apenas digite M para men- 
sal, em seguida o nome ALIJGUEL e, 
finalmente, o dia do vencimento. A pa- 
la vra ALUGLEL apareceri naquele dia 
em todos os meses seguintes. 

A opgao Celebragoes inclui datas co- 
mo aniversarios de nascimento, casa- 
mento, enfim, todo evento que tenha 
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_ CALENDARIO MENSAL 

cAlculo de um eventq 



calendArio anual 



AGENDA DIARIA 



REGISTRO DE EVENTOS 



FINANC AS, ENCONTROS , 
celebracOes E FERIADOS 



COMO USAR A AGENDA 



PRIMEIRA PARTE 



DO PROGRAMA 



USO DO PROGRAMA 




ocorr6ncia anual. Os Encontros e Feria- 
dos sao tratados como eventos linicos. 
Grave OS dados logo depois de entri- 
los, usando a op?ao GRAVAR, para 
evitar que algiMtia informa?ao se perca. 
Eles sSo armazenados em um arquivo k 
parte, chamado DIARIO, c podem ser 
carregados, corrigidos ou apagados a 
qualquer momenta, o que torna muito 
fiicil a atualizai;io da agenda. 



Depois de digkar alguns dados, vocS 
poderd observar o funcionamento da 
agenda. Se teclar o niimero do mes e 
ano, verd todas as entradas para aqucle 
mSs, incluindo compromissos financei- 
ros ou celebra^oes levadas de um mes a 
outro pelo programa. 

As entradas sSo agrupadas nas dife- 
rentes categorias, Antes de exibir deter- 
minado grupo na tela, o programa es-- 
pera que uma tecla seja pressionada. 
Dessa maneira, nenhuma entrada seri 
retirada sem que vocS possa v£-la. Se 
dispuser de uma impressora, copie to- 
das as entradas cm papel, scmpre que as- 
sim julgar necessirio, 

Se voce decidir voltar k op?^© de ca- 
lendirio e apontar o mesmo mSs, pode- 
tA destacar as datas correspondentes a 
compromissos na agenda pressionando, 
para cada uma das categorias, as teclas 
$, E, C ou F. 

A escolha de uma ou de outra opfSo 
do programa depende daquilo que se 
quer encontrar. Se voce pretende exami- 
nar a programacao para um determina- 
do mes, a escolha mais adequada serd 
a da agenda, Mas voce pode prccisar ex- 
clusivamente de informagSes sobre os 
eventos financeiros do ano, para fazer 
um ptanejamento. Nesse caso, ser^ me- 
Ihor selecionar o calendArio para um dos 
meses, destacar os compromissos co- 
merciais teclando $, passar para o mes 
seguinte e repetir a operafto at^ com- 
ptetar o periodo desejado, 

Como voce vera, nosso programa i 
muito versitil. Voce descobrird v^rias 
outras possibilidades t3o logo comece 
a,usi-lo. 



PRIMEIRA PARTE 



Dividimos o programa cm tres par- 
tes. A primeira, que aprcscntamos a se- 
guir, contim virias rotinas e a tela do 
menu principal. As outras duas partes, 
incluindo instru?fles mais detalhadas de 
como usar 9 programa, serHo dadas em 
artigos futuros. 

Nao se esque?a de que devc gravar es- 
ta parte do programa para acrescenli- 
la ks pr6ximas. 



10 DATA 2,4,1,3,7,31,26,31,30 

,31,30,31,31.30,31,30,31 

20 DATA *MENS",'TRIM',"W1UA", 

"UNIC" 

30 BORDER 0: PAPER 0: INK 7: 

CLS 

-10 CLS 

50 CLEAR : LET P-2 

60 LET Z9-- 

IP 

70 DIM 0$tl,31) : DIM Q(4) : 

DIM LS(4,150,31) : DIM TS(4.12 

) ; DIM C{<) : DIM 2(5) 

80 FOR n-1 TO 5: READ 2<n): 

NOCT n 

90 DIM D(12}: FOR n-1 TO 12: 

READ D(n} : NEXT n 
100 LET MS-'Janeiro Fevereiro 
Marco Abril Maio Jun 
ho Julho A9osto Seteab 
rn Oiitubro Noveabro Dezeabro 

110 LET ■S-'DoaSegTerQuaQulSex 
Sab' 

120 DIM PS (4, 4): FOR n-1 TO 4: 
READ P3(n) ; NEXT n 
130 LET TStD-'FinancBB* : LET 
TS t2) -"ApontaaentoB" : LETTSO 
r-'CelebracoBH": LETTS{4)-"Fe 
riados" 

M40 DEF FN MtA) - t CA/K2-INT (A/ 
K2) )*KZ) 

150 LET SV-Oi LET MO-0: LET DA 
-0 

160 PRINT "HA ALGUMA LISTA DE 
QAD03 GRAVADAlS/N} ?" : LET K9 
"'an' 

170 CLS : aOSUB 990: CLS : LET 
P-2 

180 IF C-1 THEN GOSUB 760 
190 IF C-Z THEN QOSUB 1760 
200 IF C-3 THEN GOSUB 2240 
210 IF C>3 AND C<8 THEN LET K 
B-C-3: GOSUB 1X40: LET SV-1 
220 IF C-8 THEN GOSUB 1610: 
LET SV-0 

230 IF C-9 AND 3V-1 THEN 
PRINT : PRINT "VOCE NAO GRAVOU 
AS ALTERACOES"'*C0NFIR«A A SA 
IDA 7": LET KS-"«n' : GOSUB 
14B0r IF KB-2 THEM LET C-0 
240 IF C<>9 THEN GOTO 170 
2S0 CLS : PRINT 'ADEUS !* 
260 STOP 

270 LET HX-0: LET A2-0 
280 LET K2-4: IF FN M{YR)-0 
THEN LET A2-1 

290 LET K2-100: IF FN M(YR)-0 
THEN LET A2-0 



300 LET K2-400: IF FN MCXRj-O" 

THEN LET A2-1 

310 IF KB-2 THEN LET KX-A2+28 

320 IF KB-0 THEN LET KB-1 

330 IF KB02 THEN LET MX-D(KB 

) 

340 LET KB-HX: RETURN 

350 LET RS-0 

360 IF DA -DE AND MO-ME AND KB- 

S THEN LET KB-5: RETURN 

370 IF KB-5 THEN LET KB-7t 

RETURN 

380 LET RS-Z(KB) 

390 IF 0<KB)-0 THEN GOTO 450 

400 LET M4-Q(KB) 

410 FOR I-l TO M4 

420 LET KS-LS(KB.I): LET K2-3: 

aOSUB 470: IF WAL KStZ TO 3)<> 

DA THEN LET K2-0 

430 IF K2-1 THEN 

RETURN 

440 NEXT I 

450 LET KB-HS 

460 RETURN 

470 IF KBOl THEN 

480 IF UAL K5(l)-3 THEN 

S40 

490 IF VAL KS(l)-4 THEN GOTO 



LET KB- 7: 



GOTO 520 

GOTO 



530 

500 IF WAL KStD-l AND VAL K3 ( 

2 TO 3} -DA THEN LET K2-1: 

RETURN 

510 IF UAL K3tl)-2 AND FN M{(( 

(YH-VAL KS(6 TO 9))*12)+{12- 

VAL KSd TO 5))+MO))-0 THEN 

LET K2=l: RETURN 

520 IF KB-3 THEN GOTO S40 

530 IF UAL KS<2 TO 3) -DA AND 

VAL KS(4 TO 5) -MO AND UAL KS<6 

TO 9)=YR THEN LET K2-1: 
RETURN 

54 IF VAL KS(4 TO 5) -MO THEN 
LET K2»l : RETURN 
550 LET K2-0: RETURN 
560 LET Y2-0: LET D2-0 : LET M2 
'0 

570 LET Y2-yR-l 
580 LET D2-Y2*365+INT (¥2/4)- 
INT CY2/100>+INT (Y2/400) 
590 IF HO-1 THEN GOTO 630 
600 FOR ■-! TO MO-1 
610 LET KB'b: G03UB 270: LET D 
2-D2+KB 
620 NEXT m 

630 LET KB-D2+DA: RETURN 
640 LET (45 -MO: LET DS-DA 




®X=^^^^.:.=.^^^.<V^ 



650 LET DA-li LET MO- 3: GOSUB 

560: LET K2-7: LET DE-FN M{KB) 

660 LET N2-{INT (YB/lOO) ) -16: 

LET C2-3+N2-INT { (NZ+l) /3) -INT 

(N2/4J 

670 LET K2-19 1 LET N2-FN M{YR+ 

1) ; LET K2-30: LET D2-FN MCC2+ 

(N2*19)) 

660 IF N2>11 AND D2<27 THEN 

LET D2-D2-1 r GOTO 700 

690 IF N2<-11 AND D2-29 THEN 

LET D2-2e 

700 LET D2-D2+21 

710 LET D2=D2+l: LET K2=7: IF 

INT (FN MCD2+DE) +0.1)01 THEN 

GOTO 710 

720 IF D2<32 THEN LET ME-3 

730 IF D2>-32 THEN LET D2=D2- 

31: LET ME-4 

740 LET DE-INT {D2+0.1): LET M 

O-MS: LET DA-D3 

750 RETURN 

760 GOSUB 2510: GOSUB 2480 

770 CLS 

780 LET MK-5 

790 CL3 

BOO PRINT AT 17 , i "<BBEAK> ret 

orna ao aenu' 

BIO PRINT 'Teclas z,x altcran 

Mea' 

620 PRINT INK 7|T$C1): INK 2; 

- F "i INK 7;T$(2) ; INK 4 ; " A 

B30 PRINT INK 7;T3C3); INK 1; 

- C "; INK 7:T3{4) ; INK 3;" F 

B40 PRINT AT 0,0: 

850 GOSUB 2570: IF MK<5 THEN 

PRINT T$(MK) 

860 PRINT IP: LET K8-1: GOSUB 

1920 

870 IF P-3 THEN PRINT »P 

B80 PRINT IP: LET T2-MK: LET 3 

2-1: GOSUB 2020 

890 LET P-2 

900 LET K9-'lxfacf ■: GOSUB 

1480: LET A-KB 
910 IF A-1 THEN LET MO-MO-1 
920 IF A-2 THEN LET MO-MO+1 
930 IF M0''13 THEN LET M0=1 : 
LET YR-YH+1 : GOSUB 640 
940 IF M0«0 THEN LET M0"12t 
LET YR-YH-1: GOSUB 640 
950 IF A>2 AND A<7 THEN LET 
MK-A-2 

960 IF A<3 THEN LET MK-5 
970 IF A07 THEN GOTO 790 
980 RETURN 

990 CLS : PRINT PAPER 5; INK 
1;AT 0,5;' CALENDARIO L DIARIO 
"; PAPER 6 J INK ; AT 2,7;' MEN 
U PRINCIPAL " 

1000 FOR Z-1 TO 19: PRINT PARE 

R 1;- 

* ; NEXT Z: PRINT AT 3 , 

1010 PAPER 1: INK 7 

1020 PRINT AT 4,li'l- COHBUltar 
calendano aenaal* 

1030 PRINT AT 6,1;*2- Conaultar 
calendario anual' 

104 PRINT AT 8.1; "3- Conaultar 
dlario' 
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1050 POINT AT 10 


1 


"4- 


Rever/Ed 


itar Financao' 








1060 PRINT AT 12 


1 


■5- 


Rever/Ed 


itar ApontaaentoB' 






1070 PRINT AT 14 


1 


-6- 


Rever/Ed 


itar Celebracoea" 








1080 PRINT AT 16 


1 


"7- 


Rever/Ed 


itar Feriadon' 








1090 PRINT AT 18 


1 


"B- 


Gravar a 


fl liBtcta' 








1100 PRINT AT 20 


1 


■9- 


Sair do 


prograaa' 








1110 PRINT TAB 9 


"Faca 


a opcao" 



D 



10 CLS 

20 CLEAR 5000 

30 DIM LIS(3,150] ,TYS(3) ,C0(4} 

40 D«S-"31283130313031313031302 

1' 

50 MNS--JANEIRO FEVEREIROMARCO 

ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 
BfiO NOVEMBRO DEZEMBRO " 
60 DNS-'DOMSEGTEBQUAQUISEXSAB" 
70 PAS-'MENSTRIMANUAUNIC* 
80 TYS(0)--F1NANCAS";TYS(1)-"EN 
CONTROS' :T¥$ (2) • "CELEBRACOES" ;T 
if5C3)-"r£RIAD0S" 

90 DEF FNM(A) -INT( (A/K2-INT(A/K 
2))«K2+0.5)*SGN{A/K2) 
100 SV-0;P-0:MO-0rDA-0 
110 PRINT 6256. 'HA ALGUHA LISTA 

DE DAOS GRAVADA? (S/N) " 
120 REM 

130 CLS:GOSUB 1030: CLS :P-0 
140 IF C-1 GOSUB 770 
150 IF C-2 GOSUB 2010 
160 IF C-3 OOSUB 2460 
170 IF C>3 AND C<8 THEN KB-C-4 : 
GOSUB 1180:SV-1 
180 IF C-B GOSUB 17 30:SV-0 
190 IF C-9 AND SV-1 THEN PRINT: 
PBINT'VOCE NAO GHAUOU AS ALTERA 
COES":PRINT"CONFIRMA A SAIDA?': 
KBS-"SN" :OOSUB 1590; IF KB-2 THE 
N C-0 

200 IF C<>9 THEN 120 
210 CLS: PRINT" ADEUS !" 
220 END 

230 'COMPRIMENTO DO MES 
240 MX-0:A2-0 

250 K2-4:IF FNMaR)'0 THEN A2=l 
260 K2"100:1F FNM(¥H)=0 THEN A2 
-0 

270 K2-400:IF FNM(¥H)-0 THEN A2 
-1 

280 IF KB-2 THEN MX-A2+28 
290 IF KB02 THEN MX-VAL (MIDS (D 
M9rKB«2-l,2) ) 
300 KB-MX: RETURN 
310 'CARACTER DECISORIO 
320 A3S-*":N3-0:F3-0:rt3-0 
330 IF P-2 THEN RS-32:GOTO 460 
340 IF KB-5 AND MO-ME AND DA«DE 

THEN RS-191:G0T0 460 
350 IF KB-5 THEN HS-143:GOTO 46 


360 M3-UAL{L15tKB.O)) 
370 REM 
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380 N3-N3+1 

390 A3S-LIS(KB,N3) 

400 IF MIDS(A3S,2.1).-'" THEN D- 

ELSE D-ASC(M1D3(A3S,2,1) ) 

410 IF DODA THEN 430 

420 KBS-A3S;G0SUB 470:F3-K2 

430 IF N0T(F3-1 OH N3>M3)THEN 3 

70 

440 IF F3-0 THEN BS-32:GOTO 460 

450 N3-159+16*KB:RS-N3 

460 KB-RS; RETURN 

470 'CONFERIR ITEM NO MES 

480 T4-0:X4-0:F4-0 

490 T4-ASC{MIDS{KBS.1.1)) 

500 Y4-ASC(MIDS(KBS.3.1> J 

510 M4-(Y4 AND 15) 

520 Y4-(FIXCV4/165-H7)*100+ASC( 

MID$ (KB3.4. 1) ) 

530 IF Y4>YH THEN )C2-0:RETURN 

540 K2-3:IF(T4-1 AND M0>-M4)0R{ 

T4-2 AND FNM(M4-MO)-0}OR(T4-3 A 

NO M4'-M0)0R(T4-4 AND M4-M0 AND 

y4»YR) THEN r4-l 

550 K2-F4: RETURN 

560 'NUMERO DO DIA 

570 YX-O:D2-0:M2-0 

580 y2-¥R-l 

590 D2-y2*365+FIX(Y2/4)-FIX[Y2/ 

100)+FIX(Y2/400) 

600 IF MO-1 THEN 640 

610 FOB M2=l TO MO-1 

620 KB-M2:G0SUB 230:D2-D2+KB 

630 NEXT 

640 KB-D2+DA; RETURN 



650 REM 

660 N2"0:C2«O:D2-0 

670 MS-MO :DS-DA 

680 DA- 1 : MO- 3: GOSUB 560:K2-7:DE 

-FNM(KB) 

690 N2-FIX{yR/100)-16:C2"3+N2-F 

IX( (N2+l>/3)-f IX<N2/4) 

700 K2='19:N2-FNM(YH+13 :K2-30:D2 

-FNM(C2+tN2*19}) 

710 IF N2>11 AND D2C27 THEN D2- 

D2-1 ELSE IF N2<-11 AND 02-29 T 

HEN D2-26 

720 D2-D2+21 

730 02=02+1 :K2=7: IF FNM<D2+DE)< 

>1 THEN 730 

740 IF D2<32 THEN ME-3 ELSE D2- 

D2-31:ME-4 

750 DE-D2: MO-MS rDA-DS 

760 RETURN 

770 'VER CAL.MES 

760 REM 

790 GOSUB 2750:GOSUB 2720 

BOO CLS 

810 PRINT- SETAS UP/DOWN ALTERAM 

MES" 
820 PRINT'USE clear PARA UOLTAB 

AO MENU' 
830 PRINT: PRINT CHR3 (159) ;T5fS CO 
) ;-{$)", CHRStl75) :TY$(1) 
840 PRINT; PRINT CHR$ (191) {TlfS t2 
) ,CHR3(207) ;Ty3(3) 
850 PRINT ;PHINT"OUALQUER TECLA 
PARA CONTINUAR' 
855 IF INKEY5-" THEN 855 
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660 HK-S 

670 REM 

680 CLS 

690 aOSUB 2820: IF HK<4 THEN PRI 

NT il9.TX3(MK) 

900 PRINT ti-pLKB-l:aOSUB 21S0 

910 IF P-Z THEN PRINT »-P 

920 PRIMT|-P:T2-«K:82-1:Q0SUB 2 

240 

930 P-0 

940 KBS-"'"+CHR3tlO)+-3ECF"+CHR 

5C12):GOSUB 1590:A-KB 

950 IF A-1 THEN MO-MO-1 

960 IF A-2 THEN MO-MO+1 

970 IF MO-13 THEN MO-1 : YH-1(ft+l : 

COSUB 650 

980 IF MO-0 THEN MO-IZ: YE-YR-l : 

COSUB 6S0 

990 IF h>2 AND A<7 THEN MK-A-3 

1000 IF A<3 THEN MK-5 

1010 IF A07 THEN 970 

1020 RETURN 

1030 'RETORNO AO MENU 

1040 PRINT ' PROGRAMA CALENDAR 

10 L DIARIO '[STRIN09(32,131) 

1050 PRINT TAB{13) i"»enu" 

1070 PHINT'l- CONSULTAR CALENDA 

RIO MENSAL" 

lOBO PRINT'2- CONSULTAR CALENDA 

RIO ANUAL* 

1090 PRINT-3- CONSULTAR DIARIO" 

1100 PRINT'4- KEUEB/EDITAR FINA 

NCAS" 

1110 PRINT'S- REVEH/EDITAR ENCO 

NTROS- 

1120 PRINT"6- HEWER/EDITAR CELE 

BRACOES' 

1130 PRINT'7- REVER/EDITAR FERI 

ADOS" 

1140 PRINT'S- GRAVAB A8 LISTAS" 

IISO PRINT'9- SAIR DO PROORAMA" 

1160 PRINT: PRINT TAB(9};*rACA A 

OPCAO" 
1170 KB9-'123456789":OOSUB 1590 
:C-KB: RETURN 



m 



m 



10 CLS; COLOR 15 . 4 , 4 :KEyOFF 

12 CLEAR 7000:MAXFrLE3-3 

15 OPEN "CRT:" FOB OUTPUT AS 1 3 

20 OPEN "LPT:" FOR OUTPUT AS 12 

30 DIM L1S(3,1S0) .TVSO) ,C0(4) 

40 DM9-'31283130313031313O31303 

1" 

50 HNS-'JANEIRO FEVEREIROHARgO 

ABRIL MAIO JUHHO 
JULHO AOOSTO SETEMBRO OUTU 
BRO NOVEHBRO DEZENBBO ' : ' nO 
■ero da espacoa deve coapletar 
9 caractMres para cada Bta 
60 DNS-'DOnSEGTERQUAQUISEXSAB' 
70 PA9-*a«natriaanuaunlc' 
80 TY9(0t"'Fln«Ticaa-;TY9Cl)-"Kn 
control" :TY9 (23 -'CeUbracaea- :T 
y9(3)-'F«riadoa" 

90 DEF FNM{A)-INT{CA/K2-INT(A/K 
2))*K2+.5J*SON(A/K2) 
100 3V-0; P-0; MO-0 :DA-0 
110 LOCATE 1,5: PRINT* VOCi tea 1 
iBtaa da dadoa? (S/N) * i 




120 REM 

130 CL3:0d3Ul 1030:CL3:P-3 

140 IF C-1 THEN GOSUB 770 

150 IF C-2 THEN 003UB 2010 

160 IF C-3 THEN GOSUB 2460 

170 IF C>3 AND C<B THEN KB-C-4 : 

G03UB llSO;gV-l 

180 IF C-8 THEN GOSUB 1730;3U-0 

190 IF C-9 AND SV-1 THEN PRINT: 

PBINT'Voci nSo Qravou as ulttaa 

s alteracQea! ' tPRINT'Conf Irna a 

aafda? (S/N) ';; KBS-'SN" ; GOSUB 
1590: IF KB-2 THEN C-0 
200 IF C09 THEN 120 
210 CLS; CLOSE :PRINT"Ati logo... 

■ 

220 END 

230 ' Tananho do biIb 
240 HX-0:A2-0 

250 K2-4:IF FHM(VR)-0 THEN AZ-1 
260 K2-100;IF FNMtYRl-O THEN A2 
-0 

270 K2-4O0;IF FNM(TfR)-0 THEN A2 
-1 

2B0 IF KB-2 THEN MX-A2+2B 
290 IF KB02 THEN MX-VAL (MID9 (D 
MS.KB*2-1,2)) 
300 KB-MX: RETURN 
310 ' Marcar dla de coaproaiBBo 
320 A39""":N3-O;F3-0:M3-0 
330 IF P-2 THEN RS-32;aOTO 460 
340 IF KB-5 AND MO-HE AND DA«DE 
THEN R8-42:OOTO 460 



350 IF KB-5 THEN RS-32;GOTO 460- 

360 M3-VAL(LI9(KB,0)} 

370 REM 

360 N3-N3+1 

390 A39-LI9(KB,N3] 

400 IF M1D9{A33,2.1)-*" THEN D- 

ELSE D-ASC(MID3(A39.2.1}) 

410 IF DODA THEN 430 

420 KB9-A39: GOSUB 470:F3-K2 

430 IF NOT (F3-1 OR N3>M3) THEM 

370 
440 IF F3-0 THEN RS'-32:OOTO 460 
450 RS-62 
460 KB-RS: RETURN 
470 ' Procura por item ea Baa 
480 T4-0:lf4-0:F4-0 
490 T4-ASC(MID${KB9,1.1)> 
500 Y4-ASC(MID3CKB9.3,1)) 
510 M4-(Y4 AND 15) 
520 Y4-(FIXty4/16)+17}*100+A8C( 
HID9CKB9.4,1)} 

530 IF Y4>YR THEN K2-0:RETURN 
540 K2-3;IF {T-l-l AND MO-H4) 
R {T4-2 AND FNMCM4-MO)-0) OH (T 
4-3 AND M4-M0) OR CT4-4 AND M4- 
MO AND Y4-YB) THEN F4-1 
550 K2-F4: RETURN 
560 ' Det ntlaiero do dla 
570 YX-O^D2-0:MZ-0 
580 Y2-YR-1 

590 D2-Y2'*365+FIX(Y2/4)-riX(Y2/ 
100)+FIX(Y2/400) 
600 IF MO-1 THEN 640 
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610 FOR H2-1 TO MO-1 

620 KS-HZ:OOSUB 230 : D2-D2-t'KB 

630 N£»CT 

640 KB-DZ+DA: RETURN 

650 ' Encontrar o dia de Pdscoa 

660 N2-0:C2-0:D2-0 

670 M3-H0:Da-DA 

6B0 DA-l:MO-3:aoaUB 560!K2-7;DE 

-FNM(KB) 

690 N2-FIX{YR/100)-16:C2-3+K2-F 

IX({N2+l)/3)-FIX(N2/4> 

700 K2-19:NZ-FNM(lfB+l) :K2-30:D2 

-FNM(C2+{N2*19)) 

710 IF N2>11 AND D2<27 THEN D2- 

D2-1 ELSE IF N2<-11 AND D2-29 T 

HEN D2-28 

720 D2-D2+21 

730 D2-D2+l:K2-7!lF FNM(D2+DE)< 

>1 THEN 730 

740 IF D2<32 THEN ME-3 ELSE DZ- 

D2-3X:ME-4 

750 DE-D2: MO-MS :DA-DS 

760 RETURN 

770 ' ConaultA C4lend iienaAl 

780 REM 

790 G05UB 2750:COSUB 2720:MK-5 

BOO CLS; LOCATE 0,20 

810 PRINT"<- e -> BUdan o aBa * 

920 PPJNT"<eec> volta ao aenu' ; 
830 PRINT*3:":T5f$(0) ,"E:"iTy$(l 

) 

840 PRINT-C:"iTYS(2) .-F:*iTyS<3 

) 

SSO LOCATE 0,0 

860 REM 

870 REM 

880 REM 

890 G031FB 2820: IF MK<4 THEN LOC 

ATE 3,2rPRlNTTY5(MK> 

895 REMIF P-2 THEN LPRINT 

900 PRINTiP, 1KB=I:G031JB 2150 

910 IF P-2 THEN LPBINT 

920 PRINTfP. :T2-MK:32-1 :003UB 2 

240 

9J0 P-3 

940 KBS-CHR$t29}+CHHS(2e)+-SECF 

*+CHR3(27] :GOSUB 1590:A-KB 

950 IF A-1 THEN MO-MO-1 

960 IF A- 2 THEN MO-MO+1 

970 IF MO-13 THEN MO-1 i YR-VR+l : 

GOSUB 650 

9B0 IF MO-0 THEN MO-12 : YR-YR-1 : 

GOSUB 650 

990 IF A>2 AND A<7 THEN MK-A-3 

1000 IF A<3 THEN MK-5 

1010 IF A07 THEN 800 

1020 RETURN 

1030 ' Menu devolve eacolhs en 

KB 

1040 LOCATE10.0:PBINT"CALENDARI 

E DIARIO- 

1050 PRINT: PRINTTASae) i "Menu- 

1060 PRINT 

1070 PBINT'I- Conaultar calendd 

no aenaal' 

1080 PRINT :PBINT"2- Connultar c 

alenddrlo anual* 

1090 PRINTiPBINT"3- Conaultar d 

lino" 

1100 PBINTrPRINT'4- Bever/edita 

r Cinancaa' 



1110 PRINT: PR1NT"S- Rever/edita 

r encontroa' 

1120 PRINT: PRINT"6- Rever/edita 

r celabra^Ses' 

1130 PRINT:PR1NT'7- Rever/adita 

r ferladoa* 

1140 PRINT:PHINT"8~ Gravar an i 

iataa' 

1150 PR1NT:PHINT*9- Fi* da prog 

raaa" 

1160 PBINT;PRINTTAa(9) i 'Eacolha 

:"i 

1170 KBS-*123456789-:aoaUB 1590 

: C-KB : RETURN 



(£ 



10 HOME 

30 DIM 118(3,150) ,TY$(3),C0{*) 

40 MS - "312831303130313130313 

031- 

50 MN3 - "JANEIRO FEVEREIflOMAR 

CO ABRIL MAIO JUHHO 

JULHO AGOSTO 3ETEMBH0 OU 
TUBRO NOVEMBRO DEZEMBRO " 
60 DN9 - 'DOMSEGTERQUAOUISEXSAB 

■ 

70 PA9 - "MENSALTRIME3ANUAL UNI 
CO ":D3 - CHR$ (13] + CHR3 C4 

) 

80 TY3(0) - "FINANCA9":TY5C1) - 
"EMC0NTR0S":TYS{2) - "CELEBRAC 
OES":TY3(3) » "FERIADOS" 
90 DEF FN M(A) - INT ( (A / K 
2 - INT (A / K2)) * K2 4 .5) • 

SON (A / K2) 
100 SV - 0:P - 0:MO - 0:DA - 
110 WTAB 8: PRINT "VOCE TEM LI 
ST AS DE DADOS? (S/N) "i 
120 REM 



130 HOME ! OOBUB 1030: HOME : P' 

- 

140 IF C - 1 THEN GOSUB 770 
150 IF C ■ 2 THEN GOSUB 2010 
160 IF C ■ 3 THEN GOSUB 2460 
170 IF C > 3 AND C < 8 THEN KB 

- C - 4: GOSUB fieO:SV - 1 
180 IF C - 8 THEN GOSUB 1730: 
SV - 

190 IF C - 9 AND SW • 1 THEN 
PRINT : PRINT "VOCE NAO GftAVOU 
AS ALTEBACOESI": PRINT "CONFIRM 
A A 3AIDA? (3/N)':KB9 • "SN": G 
03UB 1590: IF KB - 2 THEN C - 

200 IF C < > 9 THEN 120 

210 HOME : PRINT 'ATE LOGO...* 



DURACAO DO HES 
0:A2 - 

4: IF FN MtYH) - TH 
1 
100: IF FN M{YR> - 

- 
400: IF FN M(YH> - 

- 1 
KB - 2 THEN MX - A2 4 2 

KB < > 2 THEN MX • WA 
tDM3.KB ■ 2 - 1.2)) 
MX: RETURN 
CARACTER MARCADOH 

- •":N3 - 0:F3 - 0;M3 - 

P-2 THEN RS - 32: GOT 

KB - S AND MO - HE AND 
THEN R3 - 42: GOTO 460 
KB - 5 THEN RS - 32: GO 



220 


END 


230 


REM 


240 


MX - 


250 


K2 - 


EH A2 - 


260 


K2 - 


THEN A2 


270 


K2 - 


THEN A2 


280 


IF 


8 




290 


IF 


L { 


MID8 


300 


KB • 


310 


REM 


320 


A3$ 







330 


IF 


460 


340 


IF 


DA ' 


■ DE 


350 


IF 


TO 460 
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360 Ma - VAL (LIS (KB, 0]) 
370 REM 
380 N3 - N3 + 1 
390 A3S - LI31KB,U3} 
400 IF MIDS (A3$.Z.1> • "" TH 
EN D ° 

405 IF MIDS (A33.2.1) < > "" 
THEN D - ASC ( MIDS (A33,2,l} 

) 

410 IF (D < > DA) THEN 430 

420 KBS - A3S: GOSUB 47 :f3 - K 

2 

430 IF NOT {F3 =• 1 OB N3 > M3 

1 THEN 3 70 

440 IF F3 - THEN RS = 32: GO 

TO 460 

450 BS - 62 

460 KB - RS: RETURN 

470 BEM VEBIFICA ITEM EM MES 

4B0 T4 = 0;Y4 - 0:F4 - 

490 T4 = ASC ( MIDS {KBS.l.D) 

500 Y4 " ASC ( MIDS tKBS . 3 , 1) ) 

:T = Y4 

510 Y4 = { INT ( ABS (Y4 / 16)) 

+ 17) * 100 + ASC { HID3 (KBS 
,4,1) > 

520 M4 ' T - {( INT (V4 / 100) 
- 17) * 16) 

530 IF V4 > YR THEN K2 - 0: RE 
TURN 
540 KZ • 3: IF {T4 - 1 AND { [Y4 

< YB) OB (MO > - M4 AND Y4 = 
YR))) OB {T4 - 2 AND FN M{M4 - 

MO) - 0) OR (T4 - 3 AND M4 » M 
0) OB (T4 - 4 AND M4 - MO AND Y 
4 = YR) THEN F4 • 1 
550 K2 - F4: RETURN 
560 REM NUMERO DO DIA 
57 YX - 0rD2 - : M2 - 
580 Y2 =■ YR - 1 

590 D2 - Y2 * 365 + INT { ABS 
(Y2 / 4)) - INT ( AB3 (Y2 / 10 
0)) + INT ( ABS (Y2 / 400)) 
600 IF MO - 1 THEN 640 
610 FOR M2 = 1 TO MO - 1 
6Z0 KB - M2: GOSUB 230 :D2 = D2 
+ KB 

630 NEXT 

640 KB - D2 + DA: RETURN 
650 HEM DATA DA PASCOA 
660 N2 » 0:C2 - 0:D2 - 
670 MS - MOiDS - DA 
680 DA - 1;M0 - 3: GOSUB S60:K2 

- 7:DE • FN M(KB) 

690 NZ - INT { ABS (YR / 100)) 

- 16 'CZ - 3 + N2 - INT ( ABS 
((N2 + 1) / 3)) - INT ( ABS (N 
2 / 4)) 

700 K2 - 19:N2 - FN M(YH + 1>: 
K2 - 30rD2 - FN M (C2 + {N2 * 1 

9)) 

710 IF N2 > 11 AND D2 < 27 THE 

N D2 - D2 - 1 : GOTO 7 20 

715 IF N2 < - 11 AND D2 - 29 

THEN D2 - 26 

720 D2 - D2 + 21 

730 D2 - D2 + 1:K2 = 7r IF FN 

M(DZ + DE) < > 1 THEN 730 

740 IF D2 C 32 THEN ME - 3 : GO 

TO 7 50 



750 DE " D2tM0 - MS ; DA - DS 

760 RETURN 

7 70 HEM CALENDAHIO MENSAL 

7B0 REM 

790 GOSUB 2750: GOSUB 2720 :MK 

- 5 

800 HOME 

610 VTAB 21: PRINT ■<- ->: HUD 

A MES ' ; 

BZO PRINT ■'<ESC> - MENU" 

B30 PRINT "9:'Ty3(0) ,-E:-TYS{l 

) 

840 PRINT "C;"TY$(2) ,-F:-TYS(3 

) ; 

850 BEM 
855 BEM 
870 REM 

880 PRINT DSi'PBI'sP: VTAB 1: 
HTAB 1 

890 GOSUB 2B20: IF MK < 4 THEN 
HTAB 20: VTAB 1: PRINT TY$ (MK 

) 

900 PRINT : PRINT : KB - 1: GOS 

UB 2150 

910 IF P - 1 THEN PRINT 

920 PRINT :T2 - MK:S2 - 1: GOS 

UB 2240 

930 P - 0: PRINT DSi"PRI";P 

940 KBS - CHR5 (8) ■•- CHR3 (21 

) + "SECF" + CHRS (27) : GOSUB 

1590:A - KB 



960 

960 

970 

= YR 

980 

" YR 

990 

- A 
1000 
1010 
1020 
1030 

EM KB 
1040 INOERSE : PRINT 
PROGRAMA DE CALENDARIO 
" ; NORMAL 
PRINT 



MO - 1 
MO + 1 
1:YB 



IF A = 1 THEN MO 

IF A - 2 THEN MO 

IF MO - 13 THEN MO 

+ 1: GOSUB 65 

IF MO - THEN MO =■ 1 2 : YB 

- 1: GOSUB 650 
IF A > Z AND A < 7 THEN MK 

- 3 
IF A < 3 THEN MK = 5 



IF A < 

RETURN 
REM MENU 



> 7 THEN 800 



1050 
ENU" 
1060 
1070 



DEVOLVE ESCOLHA 



TAB( 4)" 
E DIARIO 



PRINT TAB{ 1B)"M 



745 D2 



DZ - 31:ME 



PRINT 

PRINT 
LENDARIO MENSAL' 
1080 PRINT : PRINT 
:-yEH CALENDARIO ANUAL" 
1090 PRINT : PRINT TAB ( 8 
:-UER DIARIO" 

1100 PRINT : PRINT TAB ( 8 
;-HEVER/EDITAR FINANCAS" 
1110 PRINT : PRINT TAB I 8 
i-REVEB/EDITAR ENCONTROS" 
1120 PRINT : PRINT TAB ( 8 
r-REVEH/EDITAH CELEBRAC0E3" 
1130 PRINT : PRINT TAB ( 8 
:-REVER/EDITAH FEHIADOS" 
114 PRINT : PRINT TAB ( S 
:-GRAVAR AS LI3TAS" 
1150 PRINT : PRINT TAB ( 8 
:-SAIR DO PROGRAMA" 
1160 PRINT : PRINT : 
B( 15) -ESCOLHA " ; 
1170 KBS - "123456789 
590 -C = KB: RETURN 



TAB( 8) r"l :-yER CA 



TAB( 8 



I " Q 



PRINT TA 
: GOSUB 1 




COMO CALCULAR DATAS 
EM UM PROGRAMA DE CALENDARIO 

Um pfoblema s6rio de programapao, 
para quern deseja desenvolver aplica- 
poes que envolvem cilculos de datas 
ou a determtnapao das funqoes de um 
calendSrio universal, 6 a realizaipao des- 
ses cSlculos em BASIC ou outra lingua- 
gem de alto nivel. 

HS vSrias soluf oes para o problema 
— umas mais fSceis e intuitivas e ou- 
tras mais diffceis, mas que uttlizam at- 
goritmos {"truques" matemSticos de 
cSlculo) bem compactos. Desenvolvi- 
do o procedimento para todos os tipos 
de cdlculo, organize-os na forma de 
sub-rotinas, que poderao ser usadas 
em diversos programas. 

Esse assunto seri tratado em um ar- 
tigo especial, mas adiantamos aqui a1- 
gumas constdera<;6es importantes: 

• Teste de datas 

Tenha sempre o cuidado de testar 
a daia fornecida pelo usuSrio, que de- 
ver^ ser entrada no formato num6rico 
(no Brasil, DD/MM/AAAAl. 

Vefifique se o nCimero do mes cai 
entre 01 e 1 2 e se o dia do mes cai en- 
tre 1 e o numero de dias no mes 128, 
29, 30 ou 311. Pode-se armazenar o 
numero de dias para cada mes em ufri 
conjunto de doze elementos. 

Teste, tamb^m, se o ano 6 bissex- 
to. Para isso, basta verificar se ele 6 di- 
visivel exatamente por 4. 

A maneira de testar o ano varia com 
a aplica(?:ao. Se se pede ao usu^no a da- 
ta atual, por exempio, pode-se inciuir 
na retina um teste que indique se ela 
§ ou nao anterior k data de criapao do 
programal 

• Tipos de data 

O tipo de data que utilizamos 
(DD/MM/AA), chamado de data grego- 
riana, 6 muito inconveniente para en- 
trada em computador e para cSlculos 
de diferenqas de daias. Para coloci-las 
em ordem Cfescente 6 preciso alterar 
a ordem dos seus tr^s elementos: o al- 
goritmo de ordenapao deve test^-las 
como AAMMDD. 

Existem outros tipos de data, mais 
racionais. A data ordinal, por exempio, 
torna bem mais fdcil calcular diferen- 
pas entre datas. 6 expressa numa for- 
ma como esta: 123/1986 - ou seja, 
dia n.° 1 23 (desde 1 .° de janeiro) do ano 
de 1 986. A data fiscal, por sua vez, le- 
va em consideragao o numero do dia 
da semana e o numero da semana 
(3/25/1 986 6 a terga-feira da 25' se- 
mana de 1 986). 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IlilllllllHaNO PR6XIM0 NUMEROHHIIIIIIIIII 



PROGRAMAQAO DE JOGOS 

Acione a manivela da miquina capa-nfqueis de INPUT Ela n3o vai deixd-lo de bolsos vazios. 

PERIF^RICOS 

Monitores ou televisores? Para fazer uma boa escoiha, conhepa 
as caracterfsticas desses dois aparelhos. 

PROG RAM ApAO BASIC 

Com nosso programa "desenhista", transforme o yfdeo de seu TK-2000 em uma tela de pintura. 

APLICApOES 

Liste as novas rotinas da agenda eletrdnica. 
E consulte j6 o calendSrio. 
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